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APRESENTACAO 


Quando a primeira maquina Sinclair foi lan 
qada na metade de 1982, uma barreira foi quebrada 
na area da Informatica. Pela primeira vez um com- 
putador "moderadamente" poderoso era vendido na In- 
glaterra e nos Estados Unidos por tnenos de 100 dola 
res . 

Devido a esta condiqao basica — equipamen- 
to extremamente barato — os computadores atingiram 
a maioria da popula 5 ao,incluindo muitos estudantes. 

So nos Estados Unidos ja- foram comerciali- 
zadas mais de 1 milhao dessas raaquinas e um numero 
aproximadamente igual ja foi vendido na Europa, 

No Brasil nao teraos dados precisos sobre 
a produqao, porem sabemos que a Microdigital traba- 
lha a pleno vapor sem ser atingida pela crise, de- 
senvolvendo, entre outros, os parentes bem proximos 
da linha Sinclair, ou seja, os micros TK-82,83,85^ 
Nesta pequena cole^ao de programas a refe- 
rencia basica sera ao TK-85. 

A tecnologia original foi desenvolvida na 
Inglaterra pelo extraordinar 10 Clive Sinclair, que 
em empreendimentos anteriores foi a bancarrota, mas 
no proieto do micro obteve um sucesso extraordina- 
r io. 



Como consequencia do sucesso de vendas no 
Brasil do TK-85, apesar de algumas de suas limita- 
goes, corao por exemplo a falta de uma impressora e 
de alguns comandos do BASIC como READ, DATA,RESTORE 
etc., surgiu um grande numero de usuarios. 

E entretanto um grave erro, como diz Char 
les Ryan no seu artigo "0 Volkswagen dos pequenos 
sistemas", que saiu no primeiro numero da revista 
Bits (outubro de 1983), atribuir o sucesso do TK-85 
e similares apenas ao prego conveniente do produto. 

Um fator importante que deve ser pesado no 
fenomeno Sinclair e que ele foi o primeiro micro na 
sua faixa de prego que estava dirigido diretamente 
ao usuario nao especializado, o qual poderia ter a 
maquina no seu lar acoplada a um aparelho de TV co- 
mum e tendo condigoes de opera-la a qualquer ins- 
tante. 

A seguir surgiu a pos s ib.i 1 idade da expan- 
sao da memoria RAM, a factibilidade de criar e gra- 
var em fita arquivos de dados separadamente do pro- 
grama e esperamos a partir de 1984 a possibilidade 
de conectar uma impressora barata ao TK-85. 

0 TK-85 tem uma grande utilidade no lazer, 
aceitando programas com jo’gos de emogao que exigem 
reflexos rapidos, habilidade manual e obviamente 
racioclnio. Esta ea fungao do livro TK-Divertindo . 

No TK-85 tambem podemos desenvolver progra 
mas didaticos que servem inclusive de auto-instru- 
gao. Alias, esta e a finalidade basics do TK-Lem - 
brando . 

0 TK-85 nao deixa entretanto de ser util 
no dia-a-dia dos calculos caseiros, de escritorio 
ou da escola. Foi com essa intengao que escrevemos 


o TK—Calculando« 


Nesta colegao de programas a preocupagao 
foi realmente nao termos muitas instrugoes em cada 
programs, economizando dessa forma memoria e tempo 
de digitagao. 

Nao achamos tambem que e uma simples cole- 
tanea de "joguinhos" ou de aplicagoes um pouco mais 
serias, vis to que em quase todos os programas demos 
indicagoes de eventuais e uteis alteragoes e em al-- 
guns casos fazemos comentarios ate exaustivos,porem 
em todos indicamos a finalidade do programs e suge— 
rimos ate uma aplicagao numerica onde ela convier. 

Acreditamos que a colegao destes tres 1 li- 
vros represents uma forma bem barata de adquirir 
software, embora nao seja esta a utilidade mai^ im¬ 
portante. 

Pode ter certeza o(a) caro(a) leitor(a)que 
a digitagao etapa, por etapa, isto e,linha por linha 
de um programs, acaba mostrando a voce fundamentals 
truques de programagao, e existe uma absorgao de co 
nhecimento que se nao e por osmose pode ser por "vi 
diose". 

Alias,ninguem consegue ser um grande joga- 
dor se nao treinar muito e copiar um pouco o estilo 
daqueles que ja jogam bem. 

E muito dificil ser um grande escritor sen 
ter sido um paciente leitor de muitos livros* 

Nao da portanto para ser um bom programs- 
dor sem antes ter visto muitos programas funciona- 
rem e bem, 

A colegao complete tem 100 programas e por 
tanto o material e hastante farto e diversificado, 

Claro que o passo seguinte seria ler um li 
vro do tipo Linguagem BASIC ou BASIC Sem Segredos, 



editados tambem pela Livraria Nobel, para comple- 
mentagao ou eliminagao de qualquer duvida sobre os 
diversos comandos do BASIC* 

De urna coisa todos nos da familia Mirshawka 
estamos convictos: os micros da Microdigital da se- 
rie TK e tecnologia Nacional sao equipamentos se- 
rios e nao brinquedos como pretendera inculcar al- 
guns menos informados na cabega dos "computamania- 
cos . 

lodos muitos em breve serao "computamania- 
cos" e o TK-85 pode ser definido como o "volkscom- 
puter", ou seja, o micro do povo , assim como o Volks 
wagen ou talvez o Fiat, aqui no Brasil, sejam os au 
tomoveis do povo. 

A tarefa de, escrever programas para um mi¬ 
cro nao e muito dificil. Preste portanto muita aten 
gao nas sugestoes, nas mod ificagoes e nos diversos 
truques indicados nos 100 programas e em breve voce 
estara tambem programando os seus jogos ou entao 
resolvendo os seus problemas de Matematica, Flsica, 
Quimica e quern sabe ate de Finangas e de Engenha- 
ri a-. 

Seja bem-vindo ao mundo do TK-85 e muitas 
felicidades. 

Os autores, ou seja, 
a familia Mirshawka, 
tinida entre outras 
coisas pelo TK. 

(1) TK-82, TK-85 e TK-85 sao marcas registradas da Microdigital Eletro- 
nica Ltda. 


PREF&CI0 PARA 2f EDigAO TOTALMENTE 
REVISTA E REALMENTE AMPLIADA 


Em primeiro lugar, muito obrigado caro(a) 
leitor(a) fanatico(a) do TK-85, ou seja, a todo(a) 
aqtele(a) que nas horas vagas e um(a) "tkaino" ( "a"). 

£ muito reconfortante perceber tao depres 
sa que o TK-Divertindo foi do agrado geral. A If edi 
gao do livro^esgotou em menos de quatro meses. £cla 
ro que a razao principal deve ser a excelente quail 
dade do TK-85,"maquina" formidavel que sera usada 
varios anos no Brasil. 

Nesta 2f edigao resolvemos ampliar o nume 
ro de programas apresentados em relagao aqueles da 
I? edigao, assim como modificar substanciaimente os 
outros, dando assim oportunidade aqueles que compra 
ram a if edigao de comprar tambem a 2f, pois esta e 
realmente modificada e granderaente ampliada. 

Estimado(a) "cliente" da if edigao: conte 
isto para os (as) seus (suas) amigos (as), por fa- 
vooooooor... 

Em segundo e ultimo lugar, outra vez, "nu¬ 
chas gracias" de toda a familia Mirshawka pela re- 
cept ividade que o livro TK-Divertindo e toda a se- 
rie "TK" estao atingindo. 

0 nosso desejo i^que voce, ao se tornarpro 
prietario(a) do livro, alem de se divertir, aprenda 
brincando uma coisa muito seria que e dominar o seu 
TK-85. 
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I. INTRODUQAO 

1-0 IECLAW DO SEV TK-SS 



A primeira vista o teclado do TK-85 pode 
ate parecer complicado. 

£ nosso mister fazer com que voce se trans 
forme inicialmente em urn extmio "pianista" neste te 























2 


clado conhecendo "as regras",as suas teclas e o que 
e fundamental,a fungao de cada uma. 

Olhe bem para as teclas. 

Olhou? 

Bem, verificou que temos quatro linhas de 

teclas. 

Na linha de topo estao os numeros e nas te 
clas restantes estao as letras do alfabeto parecen- 
do muito com o que ocorre em uma maquina de escre- 
ver comum. 

Entretanto algumas das teclas podem ter' a 
sua fungao tomada erradamente ou seja podem ser tro 
cadas. 

Seja portanto cuidadoso. 

A letra "0" e o numero zero "0" nao devem 
ser confundidos. 

esta a razao pela qual o seu zero apare- 
cera cortado "0". 

Da mesma forma e terrlvel a confusao entre 
a letra "I" e o numero 1. 

Isto trara problemas e confusoes aparente- 
mente nao identif icavei s nos seus progratnas. 
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Boa parte do tempo as palavras que voce ira 
precisar serao obtidas nun sensacional "zas-tras" 
pressionando-se apenas uma tecla. 

Isto fara com que voce economize muito tern 
po de digitagao, porera pode causar problemas tarn- 
bem. . . 

Caso voce esquega isto e bata letra por le 
tra as palavras que aparecem nas teclas, palavras 
estas que correspondent a comandos,o seu TK-85, pode 
ra e ficara confuso a tal ponto que se negara a a- 
ceitar a linha de instrugao assim teclada. 

Em alguns programas que aparecem no TK-Di- 
vertindo colocamos todas as palavras chave que se 
obtem pressionando apenas uma tecla dentro de um re 
tangulo para que voce esclarecido(a) leitor(a) nao 
esquega disto. 

Um exemplo e o comando [PRINT| . 

fl muito facil cometer erros. 


Quem nao os comete... 

Bem os erros aqui sao de digitagao e e re- 
lativamente facil ,apaga-los ou seja "Borracha-los" 
usando duas teclas. 

A if tecla e [SHIFT 1 e ela sera util em 
muitas coisas. 

Ela esta no canto da esquerda da ultima li 

nha. 


Esta tecla sera muito usada e voce deve 


pressiona-la com os dedos da mao esquerda. 


Pressione 
xada enquanto voce 
cla que cont@m o 0 


[shift j e mantenha-a assim 
aciona ( RUBOUT 1 a qual esta 


abai- 
na te 


(zero) . 
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Com esta operagao voce conseguira limpar 
ou seja apagar as letras ou palavras que estao an¬ 
tes do cursor. 

0 CURSOR 

0 cursor e muito importante porque ele nos 
informa em que posigao da tela nos encontramos no 
momento e o *que o micro ira imprimir quando voce 
pressionar uma tecla. 

Existem qqatro letras diferentes que podem 
aparecer dentro de uma casela ou quadradinho preto. 

Dessa forma teremos: 


U - Para numeros de linha e palavras chave que aparecem 
acima da tecla 

0 Para letras e numeros 

Q Para fungoes (palavras chave que aparecem abaixo da 
tecla) 

m Para graficos (letras brancas sobre fundo preto e 
** alguns caracteres graficos especiais que aparecem 
coloridos com azul). 

I NEWLINE ] Sabemos que NEWLINE quer dizer linha no 
va porem varaos escrever tudo junto para 
dar enfase que e uma tecla unica para 
entrar com uma instrugao. 

Esta e uma tecla muito importante. 

Quando voce pressiona esta tecla e mais ou 

menos a mesma coisa que dizer-lhe "faga aquilo que 

lhe mandei". 

Aqui vale o que ja disse ha muito tempo ,a 
Lady Lovelace que pode ser rotulada como a primeira 
programadora (Charles Babbage que o diga.,.): M o com 
putador pode fazer qualquer coisa que saibamos ex- 
plicar-lhe como fazer". 
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Note bem, ate apertar a tecla NEWLINE vocS 
pode ser voluvel e mudar de ideia que o seu TK-85 
nao ira se importer com o que voce esta lhe pergun 
tando. 

Depois que voce apertou o NEWLINE bau,bau, 
bau, Zezefredo ou entao adeus Ronilda... 

[ RUN 1 


Quando voce ja embutiu todo o seu programa 
dentro do TK-85 voce ,deve informar-lhe para que exe 
cute o mesmo. 

Para fazer isto acione a tecla pRUN1 e en¬ 
tao aperte a tecla i NEWLINE 1 para confirmar, 


Esta tecla e muito util quando queremos pa 
rar o programa meio na "forga bruta"... 


BREAK 



Voce encontra esta palavra—chave acima da 

letra A. 

(_NEW) e usada para limpar ou seja apagar 
qualquer programa remanescente e estar.apto para um 
novo programa. 

Se voce apertar [NEW 1 entao | NEWLINE ] os 
seus programas anteriores irao para o espago sen es 
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tarem em orbita ou seja jamais voltarao... 


0 comando pLIST 1 esta na tecla [K ] ♦ 

Aperte o [ LIST~[ e entao o [ NEWLINE J e o 
TK-85 imprimira o seu prograraa na tela comegando na 
1 ? linha.. 

E frequente, nao ser suficiente o espaqo 
todo de uma tela para que contenha um programa com- 
pleto. 

Para ver a parte do programa que lhe inte- 
ressar.pressione I LI ST 1 e entao tecle o numero da 
linha,no qual esta interessado antes ‘de apertar o 
I NEWLINE~l 

0 seu TK-85 imprimira o programa comegando 
na linha cujo numero foi indicado no (L1STj . 


0 comando ( EDIT | (de edigao) esta na tecla 
11 | e. caso voce queira editar uma linha,por exemplo 
a linha 50,deve proceder da seguinte forma: acionar 
|LIST j 50 e so ai pressionar o f NEWLINE [ 

Depois destas agoes pressione 

[SHIFT ||EDIT | e uma copia da linha 50 aparecera 
na parte de baixo. 

Voce pode agora usar [SHIFTj e as teclasjjTJ 
• ■0 para deslocar o cursor ao longo da linha. 

Voce est imado(a) leitor(a) pode acrescen— 
tar novos caracteres ou apagar aqueles que sao in- 
desejaveis. 
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Voce pode inclusive mudar o numero da sua 

linha, 

Quando a linha estiver correta aperte 
j NEWLINE I e entao a nova versao da linha sera colo- 


cada no programa -no lugar da velha. 

0 SISTEMA "COLORIDO" DO SEU TK-85 

No teclado do seu TK-85 vocevera quatro 
cores: preta, branca, amarela e a azul. 

E bom se acostumar a estas cores para es- 
crever os programas e para que seja mais facil en- 
tende-los (as vezes). 


1 PLOT ] —Esta escrito em branco e aparece em cima 
da letra (Q] . 

Basta apertar esta tecla no mo do K e vo¬ 
ce tera o PLOT, 

0 - A letra "V" aparece em branco. 

‘ Basta apertar esta tecla e voce tera V 

desde que voce estej'a no modo L. 

| STOP ] —Como se ve o STOP esta escrito na cor 
amarela no seu TK-85, 

Tudo que estiver na cor amarela para po- 
der entrar dentro do TK-85 precise antes 
ter apertada a tecla SHIFT (amarela 
por sinal III) 

[ SIN j —«» A funqao seno esta escrita em branco e 
aparece na parte de baixo da tecla [^). 

Para entrar com a mesma voce deve apertar 

a tecla ISHIFTl e mante-la abaixada ate apertar a 

tecla f NEWLINE 1 que acima de si tern escrito em bran 

co [ FUNCTION"] . 

Tire o seu "lindo dedinho" da tecla [SHIFT] 
e eis que surge a letra [f] dentro do cursor Q . 
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Aperte agora a tecla [Q] 

Great surprise!!! 

Aparecera na tela [ SIN 1 

Esta portanto e a forma de entrar com to- 
das as fundoes que estao escritas em branco na par¬ 
te de baixo das teclas e exigem que o cursor esteja 
no modo FUNCTION Q . 

Podemos escrever em branco dentro de qua- 
drados negros e para tanto precisamos entrar no modo 
grafico. 

Para isto e necessario apertar a tecla 
[SHIFT) e mante-la abaixada. 

Ache agora a tecla EJ e aperte a mesma 
(aperte mesmo e nao pense que o seu micro pode em 
algum momento ter cocegas.,.) 

0 cursor mudara agora para a forma Q . 

Voce tem agora uma escolha. 

Pode por exemplo manter pressionada a te¬ 
cla ISHIFTl enquanto voce aperta a tecla® e tera 
como resultado a saida de Q 

Esta impressao vai ser muito util princi- 
palmente no volume I desta serie ou seja no TK-Di- 
ver tindo. 

Voce tem uma outia possibilidade ou seja 
tirar o seu dedo da tecla [SHIFT) antes de apertar 
a tecla (3 e entao com essa sequencia de "acionamen 
tos" obter-se-a um B "branco” em um fundo preto ou 
seja o B no modo graficojjj . 

Se voce mantiver pressionada a tecla [SHIFT] 
enquanto estiver em modo grafico, com alguraas te¬ 
clas como a,®,@etc..:. (a,©,® etc. obtera pe- 
quenos simbolos graficos mostrados no canto infe¬ 
rior da direita e que estao representados em azuZ> 
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Alias nao deixe de notar que o GRAPHICS tam 
bem esta escrito em azul. 

Abaixo vao detalhados todos os simbolos 
graficos disponiveis no seu TK-85. 


Simbolo Modo Teclas Simbolo Modo Teclas 


□ 

[3 org 

SPACE 

■ 


SPACE 

E 

E 

SHIFT-1 

a 

® 

SHIFT-Q 

□ 

S 

SHIFT-2 

H 

g 

SHIFT-W 

B 

B 

SHIFT-7 

H 

s 

SHIFT-6 

□ 

E 

SHIFT-4 

9 

g 

SHIFT-R 

D 

B 

SHIFT-5 

n 

g 

SHIFT-8 

B 

g 

SHIFT-T 

s 

s 

SHIFT-Y 

r 

B 

SHIFT-E 

□ 

1 B 

SHIFT-3 

H 

g 

SHIFT-A 

n 

| B 

SHIFT-H 

MM 

5359 

g 

SHIFT-D 

SS? 

DWO 

1 B 

SHIFT-G 

m 

g 

SHIFT-S 

M 

! B 

SHIFT-F 


Por favor observe que nesta lista cada sim 
bolo esta "emoldurado" dentro de um quadrado tendo 
os seus quatro cantos evidentemente destacados oque 
as vezes nao e muito claro na tela. 

Assim por exemplo quando voce teclar o pri 
meiro simbolo, evidentemente nao tera um quadrado 
"branco" ou ainda uma caixa vazia mas sim um espaqo 
em branco. 
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Bern, com a digitagao dos programas voce en 
tender! isto melhor!!! 

Insistindo mais uma vez, nao esquega que 
voce obtem letras e numeros em video inverso atra- 
ves do modo Q 

Todos os simbolos matematicos sao tambem 
acessados de uma forma bem simples porem eles es~ 
tao em amarelo que alias e tambem a cor da tecla 
|SHIFT| . 

Portanto aperte [SHIFT] e depois [< • > ] ( 

cla T) que significa "nao igual a" ou "diferente de" 


| > T\ (tecla Y) que significa "maior ou igual a", 

[**~] (tecla H) que significa "elevado a" 

PH (tecla L) que significa "atribua a varia- 

vel que esta a esquerda o valor que esta 
a direita" 

m (tecla N) que significa "menor que" etc. 


OBSERVAQAO IMPORTANTE - 0.1. 

Neste livro a unica forma de representar 
aspas esta localizada na tecla P. 

Em nenhum dos nossos programas usaremos as 
a^spas que estao localizadas na tecla Q. 

Comentaremos isto com mais detalhes no pro 
grama 1 - "0 COELHAO ATENTO". 
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2 - indicaqAo RESUMIDA DAS PA LAVRAS-CRAVE EM 
ORDEM ALFABSTICA QUE PODEM SER ACESSADAS 
NO TK-85 COM UMA ONICA "TECLADA n DESDE 
QUE JA SE ESTEJA NO MODO C0RRET0 


Palavra 
chave 

Modo 


Tecla 

Significado 

ABS 

s 


C 

valor absoluto 

ACS 

B 


S 

arco cosseno 

AND 

f3 ou 

B 

SHIFT-2 

juntando condigoes 

ASN 

B 


A 

arco seno 

AT 

B 


C 

especlfica a posigao de impres- 
sao 

ATN 

B 


D 

arco tangente 

CHR$ 

B 


U 

numero para caractere 

CLEAR 

B 


X 

limpa variaveis e tela 

CLS 

B 


V 

limpa tela 

CODE 

B 


I 

de caractere para numero 

CONT 

0 


c 

continua a execugao 

COPY 

0 


z 

copia a tela para a impressora 

COS 

B 


w 

cosseno 

DIM 

B 


D 

dimensoes de conjuntos numeri- 
cos e alfabeticos 

EXP 

B 


X 

exponencial 

FAST 

0 ou 

a 

SHIFT-F 

modo rapido 

FOR 

0 


F 

ajusta para um lago 
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Palavra 
chave 

Modo 

Tecla 

Significado 

GOSUB 

a 

H 

desvia para subrotina 

GOTO 

B 

G 

desvio incondicional 

IF 

b 

U 

testa condigao 

INKEY$ 

Q 

B 

Le o teclado 

INPUT 

B 

I 

aceita dados 

INT 

B 

R 

volta apenas a parte inteira 

LEN 

B 

K 

comprimento da variavel alfanu 
merica (STRING) 

LET 

B 

L 

atribuindo valores 

LIST 

E3 

K 

lista o progratna 

LLIST 

(3 ouB 

SHIFT-G 

lista na impressora 

LN 

B 

Z 

logaritmo natural 

LOAD 

B 

J 

carrega o programa do cassete 

LPRINT 

B B 

SHIFT-S 

imprime via impressora 

NEW 

B 

A 

1impa a memoria 

NEXT 

B 

N 

|.ndica fim do lago 

NOT 

B 

N 

negagao 

OR 

B ouB 

SHIFT-W 

duas ou raais condigoes 

PAUSE 

B 

M 

da uma pausa no TK-85 

PEEK 

B 

0 

mostra a memoria era um ponto 
especlfico 

PI 

B 

M 

valor de tt 

PLOT 

B 

Q 

coloca um pixel na tela 

POKE 

B 

0 

coloca dados em uma posigao es 
pecifica da memoria 

PRINT 

B 

p 

imprime algo 


Palavra 

chave 

Modo 

Tecla 

Significado 

RAND 

B 


T 

indica a posigao inicial do RND 

REM 

B 


E 

observagoes ou comentarios 

RETURN 

B 


Y 

volta logo apos a chamada do 
GOSUB 

END 

B 


T 

fungao aleatoria 

RUN 

B 


R 

executa um programa 

SAVE 

B 


S 

guarda o programa em fita 

SCROLL 

B 


B 

gira uma linha para cima 

SGN 

a 


F 

sinal de um numero 

SIN 

B 


Q 

seno 

SLOW 

B 

OU B 

SHIFT-D 

modo lento 

SQR 

B 


H 

raiz quadrada 

STEP 

B 

ou B 

SHIFT-E 

incremento do par FOR/NEXT 

STOP 

B 

ou » 

SHIFT-A 

para a execugao 

STR$ 

B 


Y 

valores numericos para alfanu- 
mericos (STRINGS) 

TAB 

B 


P 

tabulagao 

TAN 

B 


E 

tangente 

THEN 

B 

ou B 

SHIFT-3 

resultante de uma condigao ver 
dadeira 

TO 

B 

ou B 

SHIFT-A 

especifica o limite 

UNPLOT 

B 


W 

apaga um pixel 

USR 

B 


L 

codigo de maquina dentro do 
BASIC 

VAL 

B 


J 

converte caracteres numericos 
para os seus valores numericos 
atuais 
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3 - PRIMEIROS SOCORROS 



L 5 


Voce necessita entrar 
do modo grafico? 

IVA PARA~~6l _ 


Voce nao pode editar 
(EDIT) uma linha? 

_ [V^.PAPA 7\ 


Voce tem mais algum 
problema? 

IVA PARA 81 


m Pressione a teclia f NEWLINE ] 

Veja se voce nao encontra o seu cursor com o 
aspecto Q !!!?? Caso isto acontega e o seu TK-85 
que esta lhe indicando onde provavelmente esta o 
crro nesta linha. 

Veja se voce nao esqueceu um 1 + 1 ou t " 1 ou m^tc. 
IvA AGORA PARA 3] 


0 


Tecle o [SHIFT] 
to voce aperta 


e mantenha abaixada enquan- 
^EDIT| 

1 


Se uma linha de programa substituir o ‘'lixo' 1 que 
estava escrito aperte f NEWLINE 1 para continuar. 


Tecle SHIFT e mantenha abaixada a mesma. 

e 


Utilize as teclas 


8 


para mover 


o cursor exatamente a direita do erro. 
Mantenha abaixada a tecla [SHIFT] e aperte 
[ RUBOUT~) para apagar. Solte o [SHIFT] e bata os 
simbolos corretos. Aperte f NEWLINE~1 . 






















0 


Voce precisa editar (EDIT) a linha. 


Ache o 


na lista do programa. 


Mova-o ate a linha que deve ser editada man 
tendo pressionada a tecla [SHIFT| e apertando 


EDIT ^ ^ ^ 

1 voce obtem a copia da li 


Com 1SHIFTI e |1-| voce obtem a copia 

nha na parte de baixo da tela. V& PARA 3 


0 Nao se preocupe com o que esta sumindo da te 
la. Tudo esta indo para a memoria do seu TK-85. 
Nenhum dos programas que e dado neste livro e su- 
ficientemente grande para lotar a memoria do seu 
TK-85 . 

Continue tranquilo, teclando o seu programa, pois 
voce nao perdeu nada. 


IT) Tecle |SHIFT| e GRAPHICS para fazer 0 CU r 
sor sair do modo letra Q para o modo grafico 


Voce pode precisar que a tecla [SHIFT| fique abai- 
xada para que possa imprimir alguns caracteres in 
dicados em amirelo no seu TK-85. 

Pare de apertar a tecla [SHIFT] e aperte fNEWLIN eT" 
para voltar ao modo letra Q . 


___ CLS _ 

0 Aperte [ y'~| e [ NEWLINE [ . 

Manteftha a tecla [SHIFT] abaixada enquanti 
voce aperta ^EDIT VA PARA 3 
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LU Tem ou tera muitos a partir de agor*. S 
mais um pouco de paciencia e voce sentir 
programas que realmente funcionam, pois foram 
todos testados. 

Entretanto como sugestSo acompanhe com muita 
atengao o que estg escrito a seguir . 

r Diregao e sentido a seguir caso voce 
esteja entrando com um programa 

Voce ja leu alguma coisa sobre "isto e o 
que o TK-85 pode ou nao fazer" e agora voce vai ler 
o que resta para, "como fazer para conseguir que o 
TK— 85 execute — o 11 . 

g 5bvio que estamos nos referindo a um pro 
grama e os resultados podem ser totalmente dfversos 
daqueles que se estava esperando. 


Resposta 


Quais podem ser as razoes? 


0 programa trabalha bem e inesperadamente algo 
ocorre de errado. 

Esse erro, deve ser provavelmente devido a um 
trecho do programa que nao e usado todajs as ve 
zes. Este pode ser um dos possiveis problemas 
que serao abordados nos itens de I a XIV mais 
especificamente IV, V, VII e VIII. 


0 programa e executado,porem os resultados sao 
"levemente" diferentes ou ate mesmo errados. 
Isto, provavelmente e devido a um pequeno erro 
comumente cometido ao informar ao TK-85 onde 
ele deve imprimir alguma coisa na tela. 

Olhe com atengao os "possiveis galhos"III,VI e 
mesmo I. 


to 
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4 - POSSfVEIS "MANCADAS SVAS” POIS 0 TK-85 NAO 
MANCAy VISTO QUE NKO TEM PERNAS ... 

Se voce seguir as ins trugoes que estao nos 
diversos programas da forma que estao escritos ja¬ 
mais tera algum dos problemas que etiumeraremos a se 
guir. 

Em tempo, e obvio que os autores nao sao 
infaliveis e alem do que podem surgir tambem alguns 
erros na composigao. Passamos a culpa para o datilo 
grafo... 

Portanto perdoadas as eventuais mancadas 
dos autores e como todo mundo comete erros de tempo 
em tempo, vejamos o que fazer se os programas nao 
apresentarem o que deles se espera. 

Ai vao algumas receitas ou seja alguns "re 
medios" para as suas mancadas caro(a) leitor(a). 

I —*■ Voce pensou que bateu a linha 70, pores es- 
queceu do 0 (zero) e bateu a linha 7 por engano. 

0 TK-85 lhe da uma indicagao de erro do tipo 
2/7 pois nao lhe foi dito que era para esquecer es 
te digito e a linha nao esta relacionada com o res- 
to do programs. 

A cura para este mal d editar (EDIT) a linha 
7 e acrescentar o 0 e entao apertar fNEWLINE } para 
entrar a linha com numero de linha correto. 

Apague (ou seja de um "RUBOUT") a linha 7 te 
clando o 7 e entao apos isto teclando [ NEWLINE ] . 

II—Voce pode ter pulado uma das linhas por enga 
no. 

0 TK-85 lhe da um relatorio de erro 2/ "nume 
ro de linha" pois ele esta procurando achar algo que 
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ele precisa da linha omitida. 

tJnica solugao - Bater a linha que foi omiti 

da . 

III— ► Voce pode ter teclado uma linha erradamen- 
te porem nao o suficientemente errada para que o 
TK-85 impega a ascensao (lindo nao?!!! desta linha 
ao programa). 

Voce poderia ter escrito 

100 LET C=13 
no lugar de 

100 LET V = 1 3 

porque as teclas C e V £stao bem proximas uma da ou 
tra. 

Possivel forma de descobrir o "grilo" - Veri 
ficar linha por linha o programa principal e entao 
fazer a mudanga. 

Esta e a solugao por inspegao para nao dizer 
por visao ou seja revisao total. 

IV— ► Existe ura erro em uma parte do programa que 
nao e usado a todo instante. 

Este erro por exemplo pode estar na linha de 
alguma instrugao contadora ou seja aquela na qual 
se acumulam os pontos de um jogo. 

Se a mensagem de erro tern a forma 2/"numero 
de linha" entao tente os remedios de I ate III indi 
cados ha pouco. 

v —► 0 codigo de erro 3 ou B significa que um nu- 

mero nao e sufio'Centewente bow ou melhor, adequado 
para a tarefa que se esta exigindo. 

Por exemplo 
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200 PRINT AT X,Y 

pode nao entrar ou melhor nao ser executada caso X 
ou Y sejam negativos ou X seja maior que 21 (so te- 
mos 22 linhas na tela) ou Y maior que 31 (so temos 
32 colunas na tela) . 

Note que as linhas sao numeradas 0,1,2,...21 
de cima para baixo e as colunas sao numeradas 0,1, 
2,...,31 da esquerda para a direita. 

0 problema pode tambem surgir em uma instru¬ 
gao como 

300 PRINT V$(K) se K 

deve ter 25 letras e nao existem mais que 18 letras 
em V$ . 

£ evidente que o TK-85 nao ira ter condi- 
goes por exemplo de achar a vigesima quinta letra. 

Tome estimado(a) leitor(a) muito cuidado 
principalmente nos STRINGS (cadeias) que serao usa- 
dos para simular um movimento na tela. 

Observagao importante - 0.-I . 

Nao permita que o programa que esta entran 
do no seu TK-85 seja uma oasa da bolaoha onde nada 
se aeha ... 

At vai ser uma desgraga para passar algum 

programa. 

VI—► Um nnmero extra pode ter sido acrescido a um 
GOTO ou a um GOSUB ou ainda pode ter sido esquecido 
algum numero. 

Dessa maneira o seu TK-85 fica um tanto quan 
to atordoado pois esta sendo raandado para algum lu¬ 
gar que nao pode ir ou esta sendo mandado para o lu 
gar errado. 



Com os humanos as vezes ocorre um fato dife- 
rente ou seja mandam-se as pessoas para certos luga 
res e elas nao vao de forma alguma... 

A solugao para achar este tipo de erro e no- 
vamente a paciente e niponica verificagao linha por 
linha do programa todo. 


VII^-*- Erro 5/"numero de linha" significa que a te¬ 
la esta lotada e voce esta tentando imprimir fora 
da janela correspondente a uma tela. 

Caso isto ocorra voce deve olhar o seu coman 
do PRINT ou entao tentar resolver o problems com o 
comando CONT e depois NEWLINE. 

VIII—►A mensagem de erro 4/"numero de linha" signi 
fica que voce "estourou" a memoria RAM do seu TK-85. 

Este fenomeno nao e tao raro porem naoocor 
rera nos programas deste livro a nao ser que depois 
de algum tempo o(a) criativo(a) leitor(a) acrescen— 
te coisas tao originais por conta propria que ocor 
ra o esgotamento da memoria do seu TK-85. 

Os remedios podem ser: a) usar um programa 
com uma tela menor fazendo economia nas mensagens 
e principaImente nas observagoea (REMarks )\ b) lim 
par a tela com o fCLS ) sempre que for possivel; c) 
a solugao "melhoral" ou seja expandir a memoria 
RAM (bom esta solqgao e a mais simples mas tambem 
pode ser cara!!). 


IX—► Erro D/"numero de linha" significa que voce 
apertou a tecla IBREAKj . 


Remedio - Aperte o 1 RUNj e depois o 


NEWLINE 1. 
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X— ► A mensagem codificada como 9/"numero de li¬ 
nha" significa que o seu TK-85 atingiu um comando 
STOP. 

Isto tambem pode ocorrer em vista de galhos 
do tipo I. 

XI— *• A mensagem codificada 6/ "numero de linha" 
significa que existe um erro na aritmetica ou alge- 
brico (notou bicho na aritmetica!!!) e o seu TK-85 
nao pode fazer aquilo que voce esta Ihe mandando. 

XII— ► A mensagem codificada 7/ "numero de linha" 
significa que voce se esqueceu de alguma linha de 
programa com um STOP ou um GOTO e o seu TK-85 esta 
perdido cometendo enganos por voce programados em 
alguma subrotina. 

XIII— ►O programa pode entrar em um lago sem fim. 

Isto as vezes ate e desejavel. 

A unica maneira de sair desta situagao e apertando 
a tecla [BREAK] . 

Uma causa provavel pode ser alguma linha per 
dida de GOTO ou ainda numeros errados ou esquecidos 
nos comandos GOTO. 

XIV— ► Perdeu-se o programa porque faltou luz devi- 
do a um defeito na rede da Eletropaulo durante um 
segundo!!!! 

Outro azar, teclou-se por descuido o f NEWl 

Solugao: "Sorria meu bem, sorria..." 

Conhece esta musicaJ|I 
Pois e,voce deve entoa-la e comegar 
alegremente a teclar o programa todo de novo. 
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Alias as vezes pode tambem ocorrer uma la- 
mentavel desconexao de algum £io da tomada ou ainda 
um "querido parente" chegar com um sorvete para vo¬ 
ce e distraidamente tropegar nura, fio desligando o 
sisterna. 

Agradeqa pelo sorvete, nao fale nada que 
nao esteja no dicionario e ainda mais se pergunta- 
rem algo diga: "sou louco para digitar tudo pela se 
gunda vez..." 

5 - GUARDANDO 0 SEU PROGRAMA 

A digitaqao de um programa longo consome 
muito tempo. 

Alem disso, toda vez que se tecla abre-se 
a possibilidade para que surjam novos erros. 

Contudo um programa pode ser armazenado era 
uma fita magnetics da raesraa forma que voce grava 
uma musica de sucesso quando essa Ihe interessa, no 
seu gravador. 

Para "salvar" um programa depois que o mes 
mo fox digitado e verificado no seu TK-85 tudoo que 
voce deve fazer e teclar a palavra SAVE e decidir 
entao sobre o nome para um particular programa. 

Para nao encucar a cabecinha do(a) queri- 
do(a) e criativo(a) leitor(a) ja colocamos nomes 
nos nossos programas. 

Alguns ate podem parecer longos mas a nos- 
so ver sao sugestivos. 

0 19 programa tem o nome de "0 C0ELHA0 ATEN 


TO". 
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cle. 


Caso voce deseje gravar esse programa te- 
SAVE "0 C0ELHA0 ATENTO" 


Neste ponto voce deve colocar o seu grava¬ 
dor no modo "recorder" ou seja gravagao. 

Pressione agora a tecla {NEWLINE] e o pro¬ 
grama ou mais precisamente uma copia do seu progra¬ 
ma passara para a fita cassete visto que o seu pro¬ 
grama original ainda reside na memoria RAM do seu 
TK-85. 

Voce sabers que a grava<jao esta completa 
quando aparecer o codigo de termino da raesraa 0/0 
no canto inferior da esquerda da sua tela. 

Agora voce ja pode desligar o seu grava¬ 
dor . 


6 - CARREGANDO UM PROGRAMA 

Com o intuito de carregar um programa de 
uma fita cassete para o seu TK-85 inicialmente te- 
c1e 1 NEW] seguido por uma tecla ! NEWLINE ] . 

Agora voce pode teclar por exemplo 

LOAD "0 C0ELHA0 ATENTO" 

o qual ira buscar e carregar na memoria RAM do seu 
TK-85 o programa chamado "0 C0ELHA0 ATENTO" 

Tem-se tambem a alternativa 

LOAD"" 

o qual busca e carrega o primeiro programa completo 
que encontrar na fita. 
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Observances importantes - 0.1. 

1) Nao esquega de fazer uma anota^ao precisa do no- 
me do programa qua voce esta annazenando,incluin 
do quaisquer espa 90 s em branco entre palavras que 
possam existir no nome do mesmo. 

Caso voce quarde urn programa chamado "0 C0ELHA0 
ATENTO" na fita e mais tarde queira carregar urn 
programa chamado "0C0ELHA0ATENT0 da mesma fi 
ta o seu TK-85 nao sera capaz de encontrar o pro 
grama. 

Que falta irao fazer os dois espagos em branco 
perdidos \\ ?I1? 

2) Deve-se ter ui gravador de "mono" nao o estereo 
para carregar ou para guardar programas. 

Caso o p'eu gravador de fitas seja apenas estereo 
voce deve virar o controle do "balance" (gostou 
dessa chapa?) ou todo para a esquerda ou todo pa 
ra a direita. 

Alem disso voce devera manter o controle do volu 
me um tanto quanto alto, talvez a 75% do volume 
rnaximo. 

Finalmente o controle do tom deve estar na sua 
maIs alta posiqao. 

fi, o seu TK-85 se "embobina" um pouco com grava¬ 
dor sofisticado pois o que ele quer e um grava¬ 
dor simples... . 


II. PROGRAMAS 



1. OCOELHAO 
ATENTO 



Chamaremos o nosso primeiro programs de "0 
C0ELHA0 ATENTO". 


Talvez nao seja o jogo de programas mais 
interessante do livrinho (esperamos que o(a) obnu- 
bilado(a) leitor(a) ache, depois de se desanuviar, 
todos os programas excitantes...) por era e um dos 
mais simples para entender. 

A finalidade do "C0ELHA0 ATENTO" e impri- 
mir uma letra qute aparece quase que no centro da te 
la tao depressa quanto se possa apos o seu apareci- 
mento. 


Caso voce tenha sucesso ou seja consiga te 
clar a letra corretamente no tempo que se deixou pa 
ra este fim obtera automaticamente um ponto. 

A contagem atingida por voce saira impres- 
sa na linha de baixo da tela, depois que aparecer e 
for teclada uma letra. 

Contudo o tempo para a sua resposta ira di 
minuindo sucessivamente a medida que voce vai res- 
pondendo. 

Ai vai a listagem do programs que voce de- 
ve embutir dentro do seu TK-85 e apos brincar com 
este programs voce estara se habituando ao teclado. 
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Observances importantes - 0.^1. (daqui para frente 

so vamos escrever O.iw 

1) Ligue o TK-85 e veja se o cursor esta no modo Q 
no canto baixo da esquerda do .sen aparelho de TV. 

2) Como voce sabe todas as instrugoes BASIC preci- 
sam comegar com um numero de linha arbitraria- 
mente escolhido. 

Nos escolhetnos o numero 10 para a primeira ms- 
trugao. 

Note que o cursor permanece em Q apos ter sido 
teclado o 10. 

3) Depois do 10 voce deve teclar a palavra chave 
LET e depois disto o cursor passa para o modo 



4) Tecle agora a letra N, localizada na ultima li¬ 
nha a direita. 

5) Para teclar o simbolo de cifrao $ que esta em ci 
* ma do U e para que ele,entre como esta em amare- 

lo,e necessario teclar e segurar o [SHIFT] e ao 
mesmo tempo apertar a tecla U. 


4) A seguir e necessario entrar com o sinal de 
igual, o qual esta na tecla (I) . 

Novamente de^e-se teclar (SHIFT), manter a mesma 


pressionada e ai apertar a tecla Q±) . 

7 ) 0 sinal duplo de as pas OEDe s t a tambem em amarelo, 
de forma que para ser acessado e necessario usar 

a tecla ISHIPTl . 


Esteja certo que voce abriu e fechou as aspas 
apertando duas vezes a tecla (p] e nao a tecla [§}• 
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Essa tecla Q tera um uso especial quando voce qui 
ser que saia uma palavra entre aspas. 


Execute 

10 LET N$ = 

20 PRINT N $ 
RUN 


tecla P 
/ 


V 


" ""SACHA"" 


11 


tecla Q 


e veras que sai irapresso "SACHA". 


Agora voce deve entrar com a sequencia de letras 
que constituent o nome SACHA KILOBYTE sem espago 
em braneo e obviamente entre aspas. 


Para enviar toda a linha para o TK-85 voce agora 
precisa apertar o | NEWLINE ] . 

Se voce teclou tudo corretamente, a linha sera 
transferida para o topo da tela com o cursor 
B aparecendo depois do numero de linha 10. 
Este simbolo, como ja dissemos "de leve", em vi¬ 
deo inverso e.usado no TK-85 com o cursor em mo¬ 


do edigao. 

Adiante falaremos mais um pouco sobre ele. 


Se voce teclou algo errado na linha podera sur- 
gir o cursor Q , indicando erro de sintaxe, na 
posigao onde esta o erro. 

Neste caso o seu TK-85 nao move a linha em ques 
tao por mais | NEWLINE ] que voce aperte. 

Voce vai ter calo no dedo mas a linha nao sobe._ 

Neste ponto uma das melhores coisas que voce po 
de fazer e apertar a tecla fRUBOUT 1 (SHIFT-01 tan- 
tas vezes quantas for necessario para remover es 
ta linha. 

Ai voce pode comegar tudo de novo I I?? 
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9) As linhas 20 e 30 sao chamadas instrugoes ou co 
mandos de atribuigao. 

Eles simplesmente atribuem valores as variaveis 
C e T especificadas a esquerda do sinal de 
igual. 

Tecle cada um deles e entre com cada um em sepa 
rado pressionando-se a tecla [ NEWLINE j . 

Como anteriormente, cada linha se movera para o 
topo da tela assim que se aciona NEWLINE e des 
de que tudo esteja correto tudo ira ben. Por 
exemplo voce pode ter teclado 0 no lugar do 0 
e isto ira trazer problemas 'posteriores apesar 
da linha ter subido . 

Na linha 40, a palavra chave PRINT e obtida a- 
pertando-se a letra P enquanto ainda se esta no 
modo Q . 

A proxima coisa que devemos fazer e teclar AT,o 
qual esta na parte de baixo da letra C. 

Isto significa que temos uma fungao e so da pa¬ 
ra entrar se estivermos no modo fungao. 

Para que isto ocorra a sequencia e apertar as 
teclas | SHIFT! e |NEWLINE~| s imu It ane ament e . 

Uma vez que isto seja feito o cursor do modo Q| 
passa para o cursor no modo Q significando 
que atingiu-se o modo fungao. 

Assim quando se aperta a tecla C no modo Q , a 
palavra AT aparece na tela seguindo a palavra 
PRINT. 

Voce tambem notara que o cursor Q| retornou a 


t ela . 
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10) Agora voce deve entrar com o numero 4, seguido 
por uma virgula e entao o numero 10 seguido por 
sua vez por um ponto e virgula e com abertura 
de aspas. 

Voce ja percebeu que as palavras que vein a se- 
guir estao em video inverso (fundo preto e le- 
tras em branco). 

Para se obter este efeito tudo que se necessita 
e raudar o TK-85 para o modo grafico. 


Para colocar o seu TK-85 para o modo grafico 



a tecla 9 . 

Na tela obter-se-a o cursor Q . 

Pode-se agora teclar as palavras 0 COELHAO ^ATEN 
TO com dois espagos em branco entre elas. 


11 ) 


Como tambem ja foi dito,para sair do modo grafi 
co uma vez que ja entrou com "0 COELHAO ATENTO" 


em video invertido, voce pode apertar I SHIFT-i 


outra vez. 


Uma outra possibilidade e apertar (SHIFTi e sem 
soltar a tecla o [ NEWLINE 1 ♦ 

Isto ira permitir que se escrevam as aspas que 
faltam quando reaparecer o cursor no modo le¬ 
tra ( B ) . 


12) Uma vez que a linha 40 foi 
seja para o topo da tela 
NE] , voce esta pronto para 


mandada para cima ou 
ao se apertar (NEWLI- 
comeqar a digitar a 


linha 50. 


Note bem que para entrar com INT e RND voce pre 
cisa estar no modo fungao. 
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Isto significa que voce precisa acessar o cur¬ 
sor Q duas veze s usando as teclas [ SHIFT-NEW¬ 
LINE ] para cada uma dessas fungoes. 


13) As linhas 60, 70, 80 e 90 sao bem simples de se 
rem introduzidas no TK-85. Cuidado novamente 
com as aspas. 

Aplique SHIFT-P uma vez e SHIFT-P pela segunda 
vez . 


14) A linha 100 nao e dificil porem e iraportante no 
tar que o THEN e obtido no modo Q presslonando 
as teclas [SHIFT] e QE) • 

Note entretanto que uma vez que teclarmos oTHEN 
reaparece o cursor no modo Q , tornando a di- 
gitagao da proxima palavra GOTO uma tarefa mui- 
to simples ou seja basta apertar a tecla G. 

15) Uma vez que se entrou com a linha 100 tome um 
folego e depois examine com um pouco de cuidado 
a 1inha 150. 

£ importante repetir esta linha. 

150 PRINT AT 16,14; ''VOCgQFALHOUQNESSAQMEUQCHAPA, 

□ ERA Q A Q LETRAQ m ; X $; ") " 

Os quadradinhos Q nao saem no video,porem voce 
obtem o espago em branco quando aperta a tecla 
[SPACE| desde que voce esteja teclando dentro das 
aspas. 

Nao esqueqa que dentro das aspas esta teclado o 
que se chama de um "literal" ou uma STRING. 

£ muito importante entrar sempre com o numero 
correto de espagos em branco nos lugares certos. 
Como veras caro(a) leitor(a) isto e crucial... 
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16) Es timadoCa) leitor(a) nao se assuste se o que 
voce esta teclando ou seja aquilo que esta na 
tela nao e exatamente o que aparece nas lista- 
gens deste livro. 

0 espago da tela de 32 colunas nem sempre foi 
respeitado no livro tanto para menos como para 
mais . 

17) Sobre as linhas finals do programa 160, 300,310 
e 320 pouco devemos falar pois a tecnica de en 
trar com as mesmas ja foi comentada. 

0 que voce deve esfcar e ansioso(a) para comegar 
a jogar e portanto vamos executa-lo. 

Exeautando o programa 

Agora que a maior parte do trabalho ja foi fei— 
ta esta na hora de "rodar" o programa. 

Faga uma ultima verificagao do programa 
que esta no video, comparando cuidadosamente com o 
que esta escrito no livrinho. 

Caso tudo esteja coincidindo aperte a te¬ 
cla R a qual quando esta no modo Q provoca a en- 
trada do comando I RUN 1 na tela. 

Ao apertar finalmente a tecla [ NEWLINE ] vo 
Ve iniciou a execugao do programa. 

Aleluia, aleluia, aleluiall! 

Aproveite! Delicie-se! 

Caso voce goste do programa 
"0 COELHAO ATENTO" 
voce pode guarda-lo em uma fita. 
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Mas agora vamos ao nosso primeiro jogo. 


10 LET N$ = / ^SACHAKILOBYTE” V 
20 LET C = 0 
30 LET T = 0 
40 PRINT AT 4,10; 

50 LET X$ = N$ (INT (RND*13+1)) 
60 LET T = T+l 

70 PRINT AT 13,13; X$ V7ZT 


[0 C0ELHA0 ATENTOj 


modo grafico 


L J 


a* *->>“> Com este quadradinho geral- 

80 PAUSE 73 - T mente indicaremos o espago 

„ „ „ „ ,,nn em branco 

90 PRINT AT 13,13; "U" _____ 

100 IF INKEY$ = X$ THEN GOTO 300 

150 PRINT AT 16,4; "VOCfiQF ALHOUQNES SAQ ’ CHAPA' , 
□ERAQAQLETRA( " ; X$ ; ") " 

160 STOP 

300 LET C = C+l 

310 PRINT AT 21,13; C 

320 GOTO 50 


Pontos de intevesse ou linhas de programa 
que podem ser mudadas para dar maior cria 
tividade e distragao via "0 COELHAO ATEN- 
TO" 

a) Voce pode mudar o conjunto de letras que sao es- 
colhidas aleatoriamente. 

Assim na linha 10 voce pode dar todo o alfabeto 
porem nao esquega de mudar convenientemente a li 
nha 50 . 

Dessa forma caso voce tenha 25 letras tambem a- 
pos o RND deve agora aparecer o numero 25. 

b) Na linha 80 temos uma pausa (PAUSE) que para tea 
porariamente a execugao do progratna por um nume - 
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ro especifico de "quadros". 

Pode-se dizer que a velocidade aproximada e de 
50 quadros por segundo. 

0 efeito do |PAUSE] e de manter oque se exi- 
be na tela por um tempo especificado capacitando 
dessa forma o(a) usuario(a) deste livrinho e especi 
ficamente do programa de ver o que se tern na tela. 


Voce ja percebeu que para cada execugao 
com sucesso voce recebe o numero total de pontos C 
ou seja na variavel C conta-se o numero de pontos. 

Ja a variavel T e tambem incrementada era 
cada volta com sucesso porem ela faz com que a pau— 
sa (linha 80) seja cada vez menor. 


Vai chegar um ponto em que por mais serele 
pe ou esperto que voce seja, nao vai dar para repe* 
tir a letra que aparece na tela e voce ira perder 
para o super-rapido TK-85. 

Alias se voce quer perder logo mude a li¬ 
nha 80 para 


80 PAUSE 63 - T 


Daqui para frente nos nao iremos comentar 
tanto os outros programas; o que nos queremos e em 
caso de duvida, pois este e um livrinho de aplica— 
goes, que o(a) preclaro(a) leitor(a) utilize um dos 
nossos livros. Linguagem BASIC ou BASIC Sem Segre- 
dos editados pela Livraria Nobel S.A, 

Neles voce encontrara as explicagoes mais 
detalhadas sobre as instrugoes e comandos que serao 
usados daqui para frente. 



ao espaqo sideral. 

Voce recebeu a incumbencia, do centre da 
galaxia,de patrulhar um pequeno setor. 

Porem este especifico setor e habitado pe- 
lo monstro RABUDINHO (e isto la e none de monstro?). 

0 monstro ira degluti-lo (melhor do que co 
rne-lo nao e?) no momento que tiver uma oportunida- 
de. 

Felizmente voce tem uma arma ultra-moderna 
com a qual pode "dinamitar" o Rabudinho. 

Infelizmente, o Rabudinho e imortal, 

Essa nem a "mulher-maravilha" podia es 

perar!!I! 

Pois e, quando voce explode o Rabudinho, 
ele aparece de novo em algum lugar (no seu caso em 
algum lugar da tela). 

Como um probleminha adicional, a sua arma 
nao e totalmente "cooperativa". 

A sua nave e pequena para carregar a arma, 
de forma que a mesma e teletransportad a ou seja vo¬ 
ce aciona a mesma da sua nave porem ela se localize 
numa base que esta nun asteroide e que aparece no 
canto da tela. 
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No inicio da sua patrulha, voce vera que 
este "foguete" volta a base bem depressa e voce fi- 
ca sen protegao. 

A medida que o tempo vai passando o fogue¬ 
te vai comegar a cooperar mais contigo. 

Voce pode usar o foguete para evitar omons 
tro durante um tempo e se voce for esperto e sufi- 
cientemente "sortudo" (para nSo dizer outra coisa,..) 
chegara a roeta final que e voltar para a base onde 
ai entao o seu foguete teleguiado ira protege-lo 
continu ad ament e. 

Esteja muito atento.pois voce nao pode ba- 
ter nos limites do seu setor (aqui representados pe 
los cantos da tela) que estao magnetizados e nesse 
caso tera como consequencia um comportamento estra- 
nho dos seus controles, voce podera estar perdido, 

podera ate explodir... . 

Bem ai vai o programa: 

1Q( DIM M(2) 

20 DIM N(2) 

3d DIM F(2) 

4d LET M(l) = 7 
50 LET M(2) =3 
60 LET N(l) = 18 
70 LET N(2) “ N(l) 

80 LET C = 0 
90 LET T - 0 
100 LET S = 0 
105 CLS 

110 PRINT AT M(.l) , M( 2) ; "M" 

120 PRINT AT N(l), N(2); "N" 

130 IF N(l) = M(l) AND N(2) = M(2) THEN GOTO 500 

140 'LET T$ = INKEY $ ^ 

150 IF T$ = "5" OR T$ = "S" THEN LET N(2) = N(2) + 

SGN(VAL T$ - 7) 

160 IF T$ = M 6 ,r OR T$ - ,, 7 M THEN LET N(l) = N(.l) - 

2 * VALT$ + 13 

170 IF T$ <>"D" THEN GOTO 200 
180 LET F(l) = NCD 
190 LET F(2) = N(2) 
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200 IF INT (T/10) < > INT(RND * T/10) THEN GOTO 230 

210 LET F(l) = 0 

220 LET F(2) = 0 

230 LET T = T+l 

240 PRINT AT F(l), F(2); "F" 

250 IF N(l) = 0 AND N(2) =0 THEN LET S = S+l 

260 IF S> = 5 THEN GOTO 500 

270 LET M(l) = M(l) + SGN (N(l) - M(l)) 

280 LET M(2) = M(2) + SGN (N(2) - M(2)) 

290 IF M(1) < > F(l) OR M(2) < > F(2) THEN GOTO 105 

300 LET C = C+l 

305 LET M(l) = INT (RND * 22) 

310 LET M(2) = INT (RND * 32) 

320 GOTO 100 

500 PRINT "A PONTUAgAO QUE VOCE OBTEVE FOlQ"; S+C 


Execute (RUN) este programa no modo SLOW 
(devagar) usando as teclas com flechas para deslo- 
car a sua nave. 

A sua nave e o N. 

Nao aperte SHIFT para chegar as teclas que 
tem as flechas ou setas comb comumente seria feito 
aperte apenas as teelas. 

A sua base esta no canto superior da es- 
querda e voce pode ver la o seu foguete "F". 

Para que voce possa enviar o foguete para 
a posigao em que esta a sua nave basta apertar a te 
oZa D (D de dispare). 

0 foguete vira ate a posigao na qual esta 
a sua nave e ficara aI,mesmo que voce desloque a na 
ve, por um perlodo de tempo bem curto no inicio do 
jogo, o qual porem torna-se cada vez maior a medida 
que o jogo prossegue. 

0 Rabudinho denotado por M (de monstro)ca 
ga voce... 

A velocidade dele e.maior que a sua quando 
ele se move na diagonal, porem a velocidade dele e 
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igual a sua quando esta se movendo horizontalmente 
ou verticalraente. 

Alias e bom dizer logo, que ai voce nao tern 
muita “chance" de fugir da criatura ou seja a qual 
quer momento vocS pode virar almogo do Rabudinho... 

As suas possibilidades de escapar aumen- 
tam quando voce usa o foguete para a sua protegao. 

Quando o foguete bate no Rabudinho ele de 
saparece e depois resurge em algum ponto aleatorio 
da tela. 

Voce ganha um ponto cada vez que o monstro 
bate no foguete. 

Se voce fizer isto na base o jogo tem um 
fim previsto apos 5 movimentos. 

Explicagoes de algumas linhas mais 

impovtantes do programa 

Temos tres conjuntos M, N e F para que se 
possa armazenar ou seja guardar respectivamente as 
posigoes do monstro, da sua nave e do foguete. 

Nas instrugoes antes da linha 100 atribuem 
se valores as diversas variaveis que serao usadas 
no programa. 

T conta a.duragao do jogo, S conta o tempo 

que voce passou a salvo na base. 

As instrugoes 110 e 120 exibem para vocS a 
posigao do Rabudinho (M) e da sua nave (N). 

Caso voce esteja na mesma posigao do Rabu¬ 
dinho ele ira come-lo e a instrugao 130 faz um sal- 
to para o fim do programa (linha 500). 

A instrugao 140 permite que voce se deslo 
que com a sua nave usando a fungao INKEY$. 
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Essa fungao reconhece qualquer tecla que 
voce aperte no teclado. 

Na instrugao 150 deve-se apertar as teclas 
5 ou 8 para ir para a esquerda ou para a direita(ve 
ja as flechas que elas possuem). 

Se uma delas e pressionada enquanto a li¬ 
nha 150 esta sendo executada a expressao SGN (VAL 
T$ - 7) e usada para determinar a nova posigao. 

SGN volta -1 se o argumento e negativo e 1 
se o argumento e positivo. 

0 VAL converte um alfanumerico (STRING) em 
um numero com os mesmos caracteres e dessa forma 
converte “5” para o numero 5 e a STRING "8” no nume 
ro 8 . 

Subtraindo 7 desses numeros temos coio re- 
sultado um numero negativo caso pressionemos a te¬ 
cla 5 e um positivo caso pressionemos a tecla 8. 

Em outras palavras (e poderiamos ter feito 
isto de forma bem mais simples, mas a! nao dava pa¬ 
ra falar do VAL...) o resultado final ou e subtrair 
1 de uma coluna se a seta a esquerda for apertada 
ou somar 1 de uma coluna se a seta a direita for 
pressionada . 

Cora a instrugao 160 obtemos uma agao seme- 
lhante atraves das setas para cima e para baixo. 

Note entao que a flecha para cima e a 7 e 
a tecla da flecha para baixo e a 6. 

Como o valor da tecla e dobrado e apos is— 
to e tornado com o sinal negativo, a aplicagao na ex 
pressao toda (sera somado ao 13) trara como resulta 
do a soma do 1 a linha definida por N(l) se apertar 
mos a tecla 6 e a diminuigao do 1 da linha caso a 
tecla seja a 7. 
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A instrugao 170 verifica se calcou-se a te 
cla D. Caso isto tenha ocorrido o foguete se deslo- 
ca para a posigao na qual se esta agora atraves das 
atribuigoes F(l) = N(l) e F(2) = N(2). 

Na linha 200 compara-se um numero escolhi- 
do aleatoriamente com INT(T/10). 

Caso ocorra a igualdade o foguete volta pa 
ra a base e em caso contrario adiciona-se uma unida 
de ao T. 

E na linha 240 que se mostra a atual posi¬ 
gao do foguete. 

Na linha 250 verifica-se se a nave esta na 


base. 

Caso isto ocorra adicona-se 1 ao tempo que 
voce esta ou conseguiu ficar seguro (S). 

Caso S se torne igual a 5 o jogo termina. 

As linhas 270 e 280 fazem com que Rabudi- 
nho v^a atras de voce. 

A posigao da nave e subtraida da posigao 
do Rabudinho e a fungao SGN e aplicada ao resultado. 

0 monstro desloca-se ent-ao uma linha e uma 


coluna em sua diregao. 

Na linha 290 verifica se o Rabudinho nao 


bateu no seu foguete. 

Caso isto tenha ocorrido voce ganha um pon- 
to CO e a nova posigao do Rabudinho e aleatoriamen 
te redesignada pelas instrugoes de numeros de linha 
305 e 310. 


Finalmente a instrugao 500 e o fim do pro 


grama. 

Com ela se imprime a sua pontuagao que e o 
numero total de vezes que o monstro foi atingido ou 
bateu no seu foguete ea quantidade de vezes que voce 
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permaneceu seguro na sua base. 

Uma observagao de aarater operaeional 

0 movimento torna-se muito estranho quando 
voce se chocar com a parte da esquerda ou de cima 
da tela porque a posigao da sua nave torna-se "ne- 
gativa". 

Porero o comando PRINT AT usa apenas valo — 
res absolutos para uma dada t posigao e dessa forma 
posigoes negativas sao imediatamente transformadas 
em positivas mas as teclas com setas trabalham em 
sentido inverso. 

For outro lado se voce for muito para bai— 
xo ou muito para a direita da tela o seu programs 
ira "para o brejo" ou seja voce ira estragar com o 


mesmo... 




A ilusao de movimento e importante para os 


graf icos nun computador. Mas, para fazer urn caracte 
re se mover, voce deve primeiro desenha-lo. 

Neste programa, nos criamos o amigo M OLIVIO 
PALITO". Mas tendo - o criado na tela como fazer pa¬ 
ra conserva-lo la? 

Resposta * Usando um quadro "congelador H co 
mo indicado na linha 300. A linha 300 e um 1 ao sem 
fim, segurando a a§ao para sempre ate voce pressio- 
nar a tecla BREAK. 


10 CLS 

20 FOR X = 20 TO 30 
30 PLOT X, 35 
40 NEXT X 

50 FOR Y 3 35 TO 25 STEP -1 
60 PLOT 30, Y 
70 NEXT.Y 

80 FOR X = 30 TO 20 STEP -1 
90 PLOT X, 25 
100 NEXT X 

110 FOR Y = 25 TO 35 
120 PLOT 20, Y 
130 NEXT Y 
140 PLOT 22, 33 
150 PLOT 28, 33 
160 PLOT 25, 30 
170 FOR X - 22 TO 28 
180 PLOT X, 27 
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190 NEXT X 

200 FOR Y = 25 TO 5 STEP -1 

210 PLOT 25, Y 

220 NEXT Y 

230 FOR X = 20 TO 30 

240 PLOT X, 5 

250 NEXT X 

300 GOTO 300 


Vamos agora fazer "OLIVIO PALITO” mexer com 
os bragos e para tanto voce deve modificar o seu pro 
grama para que aparegam estes bragos e ainda mais 
para que se possa "apaga-los" atravSs das instru- 

goes das linhas 220 e 290. 

Nao "esquente" muito a "moringa" no momento, se 
voce nao entendeu bem o que faz o PtOT e o UNPLOT. 

Tem muito programs pela frente que irS usar am- 
bos os comandos e as coisas se clarearao no devido 
tempo tat 11 


10 CLS 

20 FOR X « 20 TO 30 
30 FOR Y = 5 TO 35 STEP 10 
40 PLOT X, Y 
50 NEXT Y 
60 NEXT X 

70 FOR Y = 25 TO 35 

80 FOR X - 20 TO 30 STEP 10 

90 PLOT X, Y 

100 NEXT X 

110 NEXT Y 

120 PLOT 22, 33 

130 PLOT 28, 33 

140 PLOT 25, 30 

150 FOR X = 22 TO 28 

160 PLOT X, 27 

170 NEXT X 

180 FOR Y = 5 TO 25 

190 PLOT 25, Y 

200 NEXT Y 

210 FOR X = 30 TO 26 STEP -1 
220 UNPLOT X, 15 
230 NEXT X 
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240 PAUSE 60 

250 FOR X = 26 TO 30 

260 PLOT X, 15 

270 NEXT X 

280 FOR X = 20 TO 24 

290 UNPLOT X, 15 

300 NEXT X 

310 PAUSE 120 

320 FOR X = 24 TO 20 STEP -1 

330 PLOT X, 15 

340 NEXT X 

350 PAUSE 120 

360 GOTO 210 


Admiravel leitor(a), voce esta iniciando um 
lindo caminho em diregao de "magicas" figuras e de- 
senhos. 

Depois que rodar os proximos quatro progra 
minhas, muito simples,porem extremamente criativos, 
reuna os seus amigos ou guarde o "segredo” para na 
primeira festa de famllia deixa-los extasiados com 
a sua grande habilidade. 

Alguns pensarao que voce e o Portinari 84 
ou entao uma Anita Malfatti (que dificuldade 
achar uma pintorall!) 

Va, va, va em frente. 


para 




Seguros Privados, Capitalizaijao e de Agentes Autono 
mos de Seguros Privados e de Credito do Estado de 
Sao Paulo ou de uma forma mais simples no Sindicato 
dos Securitarios de Sao Paulo. 

E ai surgiu,da colabora^ao do criativo Jua 
rez Amarante Freitas,o programa "0 CUBO". 


10 LET A = 10 

20 LET B = 20 

30 LET C = 25 

40 FOR P = A TO C 

50 IF P> B THEN GOTO 110 

60 PLOT P, A 

70 PLOT P, B 

80 PLOT A, P 

90 PLOT B, P 

100 IF PC A+5 THEN GOTO 150 

110 PLOT A+5, P 

120 PLOT B+5, P 

130 PLOT P, A+5 

140 PLOT P, B+5 

150 NEXT P 

160 FOR S = 1 TO 5 

170 PLOT A+S, B+S 

180 PLOT B+S, B+S 

190 PLOT B+S, A+S 

200 PLOT A+S, A+S 

210 NEXT S 
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220 PRINT AT 12,16; "SES^" 

230 PAUSE 150 
240 CLS 
250 GOTO 40 

0 . I. 

i evidente que apSs tester e admirar o programa 
o(a) estimado(a) leitorU) estS autorizado pelopro- 
prio Juarez a suprimir o seu nome da linha 220 e to 

locar o proprio. 

E evidente que antes, se deve f alar , 
gado Juarez111 



Poderia parecer uma ofensa a famllia do(a) 
venerado(a) leitor(a). Juarez colabora mais uma vez 


e ai vai ui artistico programinha usando e abusan- 


do do comando PLOT. 


Haja pixel na tela, voce vai ver,,. 


10 LET X = 0 

20 LET Y = 63 

30 LET A = 0 

40 LET B = 40 

50 FOR N = A TO Y 

60 IF N < X THEN GOTO 90 

70 PLOT N, A 

80 PLOT N, B 

90 IF N > B THEN GOTO 120 

100 PLOT X, N 

110 PLOT Y, N 

120 NEXT N 

130 LET X » X + 7 

140 LET Y = Y - 7 

150 LET A = A + 5 

160 LET'B = B - 5 

170 IF A = <35 THEN GO TO 50 

180 PRINT AT 12, 16; " iWMW 11 

190 PAUSE 150 

200 CLS 

210 GOTO 10 
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0 . 1 . 

1) A primeira providencia depois de ter executado e 
entendido o programa e raodificar a linha 180 en- 
caixando o seu nome. 

£ um premio,pela sua dedicaqao ate agora. 

2) A segunda providencia e tentar fazer mais retan— 
gulos ainda e para isto basta mudar alguns incre 
mentos nas linhas 130, 140, 150 e 160. 

Que tal voce mesmo tentar isto? 

Boa sorte, isto e, good luck!!! 



Essa ja se movimenta sem tantos trancos. 


Dizem que for assim que a roda quadrada de Por¬ 
tugal transformou-se em circular. 

Ainda do tal curso do Sindicato dos Securita- 
rios de Sao Paulo citado no programa 4 recebemos a 
seguinte colabora^ao de Sergio Eduardo Pucci. 


20 LET R = 5 

40 FOR X M TO R STEP 0.5 

60 LET Y = SQR (-(X**2) + R**2) 

80 PLOT X+30, Y+20 

85 PLOT -X+30, Y+20 

90 PLOT -X+30, -Y+20 

95 PLOT X+30, -Y+20 

100 NEXT X 

110 LET R = R+5 

120 IF R > 20 THEN GOTO 200 

160 GOTO 40 

200 FOR R = 20 TO 5 STEP -5 

210 FOR X = 0 TO R STEP . 5 

220 LET Y = SQR (-(X**2) + R**2) 

230 UNPLOT X+30, Y+20 

240 UNPLOT -X+30, Y+20 

250 UNPLOT -X+30, -Y+20 

260 UNPLOT X+30, -Y+20 

270 NEXT X 

280 NEXT'R 

300 GOTO 20 
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De uma de pianista gentil e faga um pouco 
de "cocegas" em todas as teclas, uma por vez. 

Que lindas diagonals voce ve , nao e? 

Aperte o iBREAKl , depois o 1 NEWLINE] e en- 
tao troque na linha 40 o incremento do K. 

Faga por exemplo 

40 LET K = k + 3 ou 
40 LET K - K + .7 

e veja o que acontece. 

Realraente a diagonal aqui foi criada pelo 
efeito conjugado do SCROLL (linha 20),do TAB (linha 
30) e do incremento que se da a variavel K (linha 
40) . 

Podemos entretanto obter uma linha diago¬ 
nal usando o ja conhecido comando PLOT. 

Digamos que se queira representar ponto a 
ponto a reta y = 3x + 4. 

Para isto representaremos os pontos (0,4); 
(1.7); (2,10), ... (13,43). 

Voce nao esqueceu que com o PLOT no eixo 
Y podemos ter numeros entre 0 e 43 e no eixo X de 
0 ate 63. 

Execute o programa 

10 FOR X = 0 TO 13 1 » lirido numero nao e Sacha? 

20 PLOT X, 3*X + 4 
30 NEXT X 
40 STOP 

Faga agora uma sensacional modificagao e 
des'enhe um feixe de retas (nao estamos mais falando 
em diagonals.) 
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Para parar o programa entre com uma letra ou al- 
gum outro valor que seja ilegal enquanto o pro¬ 
grama esteja esperando um numero de dois algaris 
mos ou entao use a tecla BREAK enquanto o progra 
ma esta elaborando algum desenho. 

4) Este programa e bom executar no modo FAST ou se¬ 
ja no modo rapido. 


IfU ICO 




de ser educatival!! 

0 programa que ora varaos analisar faz com 
que numeros e letras desloquem-se diagonalmente na 
tela. 

Digite logo o programinha abaixo e se de- 
licie com o resultadoJ 


10 fLETl K 0 0 
20 fsCROLLl 

30 | PRINT ifTABl K; |INKEY$| 
40 | LET 1 K Q K Q 1 


50 [I?] (iNKEY$| 000 [THENl| LET 1 K 0 0 


Neste programa depois de ter-se teclado o 
[RUN J e o 1 NEWLINE ) se observara a tela toda branca 
ate que se aperte qualquer tecla. 

Por favor nao aperte a tecla (BREAKl pois 
nesse caso o seu programa parara. 

Voce pode manter a tecla fsiTlFT 1 abaixada 
enquanto voce pressiona outras teclas. 
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De uma de pianista gentil e faqa urn pouco 
de "cocegas" em todas as teclas, uma por vez. 

Que lindas diagonals voce ve, nao e? 

Aperte o [BREAK| , depois o | NEWLINE 1 e en- 
tao troque na linha 40 o incremento do K. 

Faqa por exemplo 

40 LET K = K + 3 ou 

40 LET K = K + .7 

e vej a o que acontece. 

Realmente a diagonal aqui foi criada pelo 
efeito conjugado do SCROLL (linha 20), do TAB(linha 
30) e do incremento que se da a variavel K (linha 


Podemos entretanto obter uma linha diago¬ 
nal usando o ja conhecido comando PLOT. 

Digamos que se queira representar ponto a 
ponto a reta y = 3x + 4. 

Para isto representaremos os pontos (0,4); 
(1,7); (2,10), ... (13,43). 

Voce nao esqueceu que com o PLOT no eixo 
Y podemos ter numeros entre 0 e 43' e no eixo X de 
0 ate 63. 

Execute o programs 

10 FOR X = 0 TO 13--•-lindo numero nao e 

20 PLOT X, 3*X+ 4 Sacha? 

30 NEXT X 
40 STOP 


Faqa agora uma sensational modificaqao e 
desenhe utn feixe de reta (nao estamos mais falando 
em diagonals.) 
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Para tanto introduza as seguintes linhas 
neste ultimo programa. 

5 FOR M = 0 TO 3 STEP.5 » 

20 PLOT X, M*X+4 
35 NEXT M 

Lindo nao e? 

Que tal voce pensar em desenhar agora uma 
teia de aranha. 

Na excelente revista Micro Sistemas no $eu 
n9 21 (julho-1983) apareceu um artigo de Andrew 
Fairbrain com o txtulo "Desenhe e brinque com o mi¬ 
cro ' o qual recomendamos ao leitor para mais deta- 
lhes de como desenhar figuras geometricas e objetos 
em movimento. 

0 , 1 . 

Copiar ou repetir programas dos outros e 
muito bom!! 

Principalmente quando voce ja comprou o li 
vro destas outras pessoas... 

Ha,ha,ha,ha,ha,... 

Porem voce nao quer ser somente um "compu- 
taca entusiasta ou seja um panaca entusiasta via 
micro . 

Querera logo escrever seus proprios progra 

mas . 

Nao se apresse e as razoes sao muitas. 

Adapte-se as muitas ideias que tera daqui 
para frente. 


■com esta instruqao rau- 
da-se a inclinaqao da 
reta 
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Voce esta ainda no 79 programa. 

Veja que os programas que ira encontrar nos 
3 livros da colegao TK sao curtos e geralmente nao 
ocupam mais que duas telas. 

Analis e bem os mesmos, principalmente de- 
pois que conseguir jogar ou obter resultados numeri 
cos . 

Outra vez, boa sorte e nao se apresse pois 
caso contrario pode se queimar ou coiner cru. . . 

Sera que eu estou sendo um chato "confiden 
cial" com todas essas observances? 

Definigao de chato confidencial 

g o que sabe a noticia era primelra mao.Des 
tacam—se entre estes os patpiteiros de tuvfe (barba- 
deiros), boateiros s boas-fontes. Geralmente seguram 
o "paciente" pela lapela quando falam ou cospem-lhe 
no ouvido. Muitos contain o obvio e outros o incri- 
vel e sao os cataclism'ico s ou apocaltp ticos . 


8. O AS DO VOLANTE 



Temos no Brasil e principalmente e lamen- 


tavelmente em Sao Paulo uma enorme incidencia de 
acidentes de trafego. 

Isto exige providencias de autoridades e 
principa lmente uma r espons ab i 1 idad e maior dos moto*- 
ristas muitos dos quais sao "asnos" no volante,.. 

Bem deixando o problems para as autorida- 
des„de voce, em situagoes desagradaveis,queremos pe 
ricia para que nao ocorram choques. 

£ evidente que os dois programas que ora 
iremos apresentar sao apenas para a sua destreza ma 
nual e justamente sao o oposto do que voce deve fa - 
zer no transito,.. 

£ evidente que se voce for ruim de volante 
ira bater loucamente nas bordas de uma estrada. 

Este e o primeiro programa. 

0 seu carro e Q (em negrito) deslocan- 
do - se em velocidade normal ens uma estrada do tipo 
Sao Paulo — Campos de Jordao la na serra. 

Cada vez que voce "bater" no "guard-rail” 
aparecera uma mensagem ... 
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Veja se deixa o seu lindo "dedinho" proxi¬ 
mo da tecla "8" pois e com ela que voce ira "mane- 
jar" o seu carro Q. 

Boa sorte I ! I 

10 (LEU x 0 ^ _ ^ Que Undo numero hein Sacha? 

20 (OlT) Y 0 13 — 1 

30 flFl INKEY$ 0 0 8 0 [THEN] [PTfl X 0 X 0 1 
40 flFl INKEY$ [<> 1 0 8 0 [THEN ] f!ET| X 0 X 0 1 
50 (TF) X {<=} Y |or) X CEl Y 0 6 [THEN)( GOSUB] 300 
60 | PRINT | |at] 6,X; 000 
70 [ PRINT | [TAB] Y; 0OBSW@®B0 
80 [IF] (RND) Q -25 (OR) Y 0 22 [TiffiN) (EET] Y 0 Y 0 1 
90 (TF] (RNDj 0 -75 g Y @ 2 fTlffiN] (LE^ Y 0 Y01 
1.00 [SCROLL! 

110 [GOTO | 30 

300 (EH) R 0 £nt) 0 (HI 0 4 0 0 1 
310 flFl R 0 I f THEN) {PRINT] @ 6,0; "TRONK" 

320 flFlR 02 1 THEN!frRINlj @ 6,0; "CRASH" 

330 mriR 03 1 THENltPRIN'JfS’Ti e,0; "PLUNG" 

340 flFlR Fl4 fTHENl[PRINT[fMH 6,0; "CRANK" 

350 [RETURN] 

Voce quer fazer algumas modificagoes? 

Quer ? 

Ai vao algumas 

Em primeiro lugar vamos impor ura tempo ma- 
ximo de 1 minuto e um numero maxirao de 7 batidasCem 
homenagem ao nosso irmao cagula Sacha). 


Dessa forma acrescente 
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2 LET T = 0 
4 LET B = 0 


A variavel T ira contar quantas vezes oqua 
dro que representa a estrada move-se para cima. 

106 LET T = T + 1 

Quando T atingir 200 passou aproximadamen- 
te 1 minuto ("chute" dos autores). 

Acrescente entao 


108 IF T > 200 THEN GOTO 400 
400 CLS 

410 PRINT "VOCE £ UM ’PIQUET 1 - ISTO £ UM MONSTRO DO VOLAN 
TE" 


420 INPUT N$ 
430 RUN 


que lindo macete para recomegar tudo 
de novo 


Cora a variavel B e que se conta o numero 
de batidas nas bordas da estrada tortuosa. 

304 LET B = B + 1 

306 IF B = 7 THEN GOTO 500 

Ai esta a mensagem desagradavel para voce 
homem.pois os ruins no volante sao os homens segun- 
do as mulheres. 

500 PRINT AT 19,0; "VOC§ £ UM 1 BARBEIRO 1 E TIROU A CARTA 
POR TELEFONE NAO £?" 

505 PAUSE 50 
507 CLS 
510 GOTO 420 
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Voce pode mexer urn pouco nas linhas 80 e90 
e tornar a estrada mais tortuosa ainda visto que is 
to altera o va r lor da variavel Y e consequentemente 
a impressao do trecho da estrada aparece em outro 
lugar. 

Gostou das mensagens de alerta que saem de 
vido as linhas 300 - 340. 

Voce tambem pode modifica—las. 

Agora que voce ja treinou bastante esta ajD 
to a entrar no transito da cidade de Sao Paulo e ten 
tar varias ultrapassagens com sucesso... 

Note beta que na vida real nao e para fazer 

isto ! ! 1! 


2 CLS 
4 SLOW 

6 print at n,i0;"eeeeeeeaeoaee *• 

8 PRINT AT 12,10;" ■) SAO PAULO 3 " 

10 print at 13,10;"BBBBBBBBBB B B8 " 

12 FOR X=1 TO 100 -►esta e uma pausa "joia"! 

14 NEXT X 

16 CLS -► limpeza na tela 

18 LET M = 21 
20 LET T “ 0 
22 LET W = 15 


24 PRINT AT 0,W; 


26 LET A = PEEK (PEEK 16398 + 256 * PEEK 16399) 

28 IF A=180 THEN GOTO 150 daremos raaiores detalhes 




eis o seu 
carro 


sobre o PEEK no programa 
"ASTEROIDES" 


50 FOR Q=1 TO INT (T/100)+l 


eis o leito da 
sua estrada 
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60 LET P = INT (RND*8) + 2 

70 LET A$(P) = " Q 11 —► Precisa do DIM por causa 

80 NEXT Q do por 

90 PRINT AT M,10; A$ 

100 LET W*W + (INKEY$ = "8") - (INKEY$ = "5") 

110 IF W 518 OR W <1 THEN GOTO 150 ' daqui a pouco 

120 SCROLL —►Faz "subir" a es- explicaremos com 

. , ,. ~ mais detalhes es 

130 LET T=T+1 trada eK ^ Lre ^° ta X i nha 

ao carro (gozado 

140 GOTO 24 nao e?) 

150 PRINT AT 1, W--2;"BANG"; AT 19,1; "VOCE ANDOUQ 
INT (T/4)0 QUARTEIROES" 

160 PRINT AT 21,0; "QUER DIRIGIR MAIS (S/N)?" 

170 IF INKEY $ = "S" THEN RUN -► lindo "macete" 

180 IF INKEY$ » "N" THEN GOTO 200 
190 GOTO 150 
200 CLS 

210 PRINT AT 11,11; "00090" 

22S< PRINT AT 12,11; " 0 FIM □ " 

230 PRINT AT 13,11; "BBBBB" 

240 STOP 


lindo "macete" 


Numa manifestagao basfante sincera quere- 
mos declarar que somos leitores assiduos da Interfa 
ce, a excelente revista dirigida por Naila Gloria 0. 
Cortes e Cesar da Costa. 

E foi na seqao Consultoria da Interface N9 
10 que sairam algumas "microdicas" para a reduqao 
ou seja de economia de memoria nos programas com um 
TK-85. 

Entre elas estao as seguintes: 

1) Quanto menos linhas tenha o seu programa tanto 
melhor, desde que isto seja possivel. 
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Cada linha de programa ocupa 5 bytes assim aloca 
dos: 2 bytes para o numero de linha, 2 bytes pa¬ 
ra o comprimento e 1 byte para o termino ou seja 
para o NEWLINE. 

2) Quanto menos REM (remarks) e prefacios explicati 
vos tiver o seu programa tanto melhor. 

3) Quanto menos calculos intermediaries tanto me¬ 
lhor. 

4) So dimensione matrizes quando isto for estrita- 
mente necessario. 

Nos ja fizemos isto e talvez inutilmente no caso 
do programa "0 M0NSTR0 RABUDINHO". 

5) Desde que seja possivel reduza a uma unica linha 
todas as operagoes aritmeticas e logicas. 

6) Utilize, variavel, ao inves de constantes numeri 

i " 

cas, sempre que ocorrer a repetigao digamos mais 
do que tres vezes no programa. 

A razao disto e que as variaveis ocupam 5 bytes 
cada uma acrescidas do numero de caracteres do 
nome da variavel, enquanto as constantes numeri- 
cas ocupam o numero de digitos da constante in- 
cluindo o ponto decimal caso existir, acrescido 
de 6 bytes. 

7) Um macete pouco usado e aquele de no lugar de 
usar a expressao 

IF B = 0 THEN 
usar a expressao 


IF NOT B THEN 
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e com isto se economize uma constante numerica 
ou seja 6 bytes. 

8) Substitua as constantes numericas e ou as varia¬ 
veis pelos valores de algumas fungoes ou codi- 
gos . 

Por incrlvel que possa parecer,no lugar de 

LET A = 0 escreva LET A = PI - PI 

- * - 

nao e para ir no 
W.C. viu ? 

LET A = 1 escreva LET A = PI/PI 

9) Quando aparecerem expressoes de atribuigao como 

10 LET A®13 10 LET A=13 

substitua por ■ 

20 LET B=13 20 LET A=B 

e com isto economize 5 bytes. 

10) Sempre que souber, puder e for posslvel use PEEK 
e POKE para armazenar valores. 

11) Finaltnente chegamos a uma explicagao da linha 100 
do ultimo programa. 

Substitua expressoes como: 

IF A <88 THEN LET A=A+1 
por 

LET A=A+(A < 88) 

Se por outro lado surgir o treeho de programa 

110 IF INKEY$ = "S" THEN LET X=X+1 
[20 IF INKEY$ = ’'N" THEN LET X=X-1 

L.alias isto ja apareceu 
muito nao e? 
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substitua o mesmo por 

10 LET X=X+(1 AND INKEY$ = "S") 

-(1 AND INKEY $ = "N") 

ou ainda por: 

10 LET X=X+(INKEY$ = "S") - (INKEY$ = "N") 
Entendeu agora a linha 100? Gtimo, parabensll! 



Suponho que sim. Deve ter vlsto em algum 
filme ou talvez ao vivo em algum cassino legal fora 
do pais ou quern sabe ate em algum ilegal... 

Bem/'caqa-niqueis” no Brasil e urn mal neg 
cio pois os nxqueis aqui atualmente nao valem na- 
da! 1: 

0 nosso "ca^a~nIqueis" e todo especial, pe 
sa mais de 200 kg, tem oculos e se chama "TILAPIA". 

Vamos ver se conseguimos faturar o "Tilapi 

nha". . . 

No programa "CAgA-NlQUEIS TILAPIA" aparece 
rao cinco desenhos se movimentando em quatro 

"janelas" distintas. 

Para ganhar voce deve fazer com que os de¬ 
senhos nas quatro janelas sejam iguais quando entao 
voce recebe como bonificaqao seis vezes o que apos- 
t ou. 

Se por outro lado conseguir coincidences 
nas tres primeiras e errar apenas na ultima recebe 
o que apostou multiplicado por dois. 

Em todas as outras situa^oes voce perde o 
que apostou. 


ioi 
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No comedo do jogo o seu TK-85 Ihe pergun- 
ta o montante que voce ira apostar. 

Esta quantia torna-se o padrao para o res- 
tante do jogo. 

Caso voce analisar a tela cuidadosaraente 
vera o inlcio do deslocamento dos desenhos na pri- 
meira j anela. 

Em qualquer instante voce pode interromper 
o deslocamento nessa janela pressionando qualquer 
tecla. 


Isto ocorre em fun$ao das instrugoes de nu 
mero de linha 240 ou 310 ou 380 ou 450 ou ainda 
520 . 


No momento em que o deslocamento na 1? ja¬ 
nela parar, come^a o moviraento na 2? janela que vo¬ 
ce tambem deve e pode parar. 

Porem voce deve parar aquele desenho que 
seja igual ao que ja esta "congelado" na if janela. 

Siga com a raesma opera^ao para a 3f e 44 

j anelas. 

A quantidade total ganha ate um certo pon- 
to, e mostrada na parte inferior da tela e cada um 
para onde e quartdo quiser (geralmente quando esta 
com valor negativo muito grande...). 


Ai vai o programa: 


5 LET T = 0 

8 PRINT "ENTRE COM A APOSTA" 

11 INPUT A 
15 CLS 

18 LET I = 10 

20 LET J = 1 __ 

25 PRINT AT 4,9; " BMMH " 
30 GOSUB 170 
35 LET Q1 = C 
40 LET J = 9 
45 GOSUB 170 


50 LET Q2 = C 
55 LET J = 17 
60 GOSUB 170 
65 LET Q3 = C 
70 LET J = 25 
75 GOSUB 170 

80 IF Q1 = Q2 AND Q2=Q3 AND Q3=C THEN GOTO 110 
85 IF Q1 = Q2 AND Q2=Q3 THEN GOTO 140 
90 PRINT AT 20,10; "0 VOCE 0 PERDEU" 

95 LET K - -1 
100 GOTO 540 

110 PRINT AT 20,10; " Q GANHOU O " 

120 LET K = 6 
130 GOTO 540 

140 PRINT AT 20,10; "Q 3 OCOINCIDIRAMQ" 

150 LET K = 2 
160 GOTO 540 

170 REM AQUI COMEgA A SUBROTINA 
180 PRINT AT I+1,J;"|0B8I"' 

190 PRINT AT I+2,J;"B|0|(|" 

200/ PRINT AT I+3,J;"| 0|0fl rt 
210 PRINT AT 1+4,J;"0 B OB0" 

220 PRINT AT I+5,J;"B O O 8 8 K 
230 LET C = 1 

240 IF INKEY$ < > " " THEN RETURN 
250 PRINT AT 1+1, J ;ai|| B" 

260 PRINT AT 1+2, J ;" B @ B ® B" 

270 PRINT AT 1+3 , J; ” B B O B B" 

280 PRINT AT 1+4, J; " B ® B @ B" 

290 PRINT AT 1+5, J; " ■■■■■" 

300 LET C = 2 

310 IF INKEY$ < > " "THEN RETURN 
320 PRINT AT I+1,J;"0Q OQQ" 

330 PRINT AT 1+2, J;" B B BB B" 

340 PRINT AT 1+3,J;" □ 0 00 O'" 

350 PRINT AT 1+4,J ;"8I BB B M 
360 PRINT AT 1+5, J;" 0 0 00 0 M 
370 LET C = 3 

380 IF IJJKEY$ < > THEN RETURN 
390 PRINT AT 1+1, J;" B B BB B n * 

400 PRINT AT 1+ 2 , J;" 0 O 00 0^ 

410 PRINT AT 1+3,J;" B B BBB V 
420 PRINT AT I+4,J;"0Q 00 0 H 
430 PRINT AT 1+5, J;" 8 B BIB" 

440 LET C = 4 

450 IF INKEY$ < > " "THEN RETURN 
460 PRINT AT I+1,J;"| B Bfi 1 M 
470 PRINT AT I+2,J;"CI0I® W 
480 PRINT AT 1+3,J;"BO BOB'" 
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490 PRINT AT 1+4,J;"C ■ 0 ■ (I " 

500 PRINT AT 'I+5,j;"i BOB!" 

510 LET C = 5 

520 IF INKEY$ < > " " THEN RETURN 

530 GOTO 180 

540 LET T = T+K*A 

550 PAUSE 200 

560 CLS 

570 PRINT AT 21,7; "TOTAL Q = 0 CR$□ M ;T; , '000□C) ,, 

580 PAUSE 100 
590 GOTO 18 

Urn pouco de "papo" sem a intengao de ser 
aca1entador para bovinos e sim para lembrar e ilus- 
trar os(as) atentos(as) aprendizes. 

1) A linha 180 cons is te de cinco simbolos graficos 
assim como varias outras linhas do programa. 

Para se chegar a eles va com paciencia colocando 
inicialmente o seu TK — 85 no modo grafico Q pres 
sionando o [SHIFT-ID . 

Agora que voce esta no modo grafico pressione as 
seguintes teclas 

SHIFT-E ((5 ) » SHIFT-7(g), SHIFT-7(0), 

SHIFT-7(05) e SHIFT-R(J). 

2) A cadeia de caracteres da linha 190 consiste de 
quatro caracteres que sao acessados no modo gra¬ 
fico. 

0 caractere central contudo e simplesmente urn es 
pago em branco e para ser acessado basta estar 
no modo Q (modo letra). 

Para teclar o mesmo voce precisa deixar o modo 
grafico (pressionando SHIFT-9) e calcar a tecla 
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[SPACE) uma vez e al entao voltar ao modo grafico 

para se teclar os dois simbolos restantes. 

Bern caro(a) leitor(a) "divirta-se" e veja 

se nao erra com todas as outras linhas que possuem 

simbolos graficos. 

Os outros pontos de interesse desse progra 

ma sao: 

1) Linhas 30 - 70: servem para M fixar M na tela as 
posigoes das quatro "janelas". 

2) Linhas 80 - 160: servem para definir se em um da 
do jogo se perdeu ou se ganhou. 

3) Linhas 180 - 530: servem para mostrar os diver- 
sos desenhos em cada janela e permitem fixar ca— 
da um deles nas diversas janelas. 

4) Linhas 540 - 590 - servem para indicar a quanti- 

^ t 

dade de cruzeiros ganha ou perdida e exibir a 
mesma na parte inferior da tela. 

Poeeiveis adaptagoe s 

a) Voce pode aumentar mais uma janela ou ate dimi- 
nuir para tres. 

b) Voce pode aumentar o numero de desenhos que "gi- 
ram" e tarna-los bem parecidos uns dos outros pa 
ra provocar confusao e aumentar com isto a possi 
bilidade de perder. 

c) Voce pode taobem fazer uma pequena modificagao 
de tal forma que o valor da aposta mude de jogo 
para jogo. 
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d) Voce pode criar outros "ntveis" de ganho (por e- 
xemplo devolver metade da aposta se coincidirem 
dois quadros quaisquer). 

e) Voce pode consultar uma variante totalmente dis- 
tinta dessa do problema "CAQA-NlQUEIS" que apare 
ce no interessante livro de programas de Carlos 
E.R. Salvato publicado pela Microomega em conjun 
to com a Editors Moderns. 

FUNDAMENTAL 

£ PROIBIDO SABOTAR 0 PROGRAMA PRESSIONANDO QUALQUER 

TECLA E SEGURANDO A MESMA ATl£ QUE SE FORMEM AS Q?UA- 

TRO JANELAS. 

ASSIM NAO D&, POIS VOCE ENGANA 0 SEU TK-85 E GANHA 

sempre:::::: 



cido nos meios intimos como Sacha,e "louquinho" pa¬ 
ra brincar com o pai com jogos de advinha^ao. 


Um dos jogos que ele mais gosta e o "SALA- 
DA DE NOMES". 

Para exemplificar o jogo nos armazenamos 
no TK-85 o nome de 13 mulheres muito importantes ou 
conhecidos por nos, Victor Jr. e Sergio. 

Come?araos com Nilza, nome da nossa querida 
raamae, continuamos com Maria, nome da estimada vovo 
e tambera da mamae,Vicky e Chris, noses das nossas 
primas, Dulce amiga do papai, Naila (uma das do 
nas do Interface), Thais, Stela, Wilma, Norma, Va¬ 
nia, Telma, Carla (anonimas importantes). 

0 TK-85 escolhe aleatoriainente um desses 
nones do "mundo e das mulheres" e exibe o mesmo na 
tela aproximadamente quatro segundos. 

0 Sacha ou voce deve decifrar a palavra de 
cinco caracteres, um tanto "embananada" quanto ao 
significado e teclar,antes que o tempo termine,a pa 
lavra ou melhor o nome correto. 
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Caso voce tenha sucesso e premiado(a) com 
um ponto e em caso contrario leva neste lance um ZE 
RO. 

No fim de cada etapa da brincadeira o seu 
TK-85 lhe pergunta se voce quer ou nao continuar no 
seu treinamento perceptivo, 

6 bom ressaltar que os nomes que colocamos 
no programa nao sao tao facets de decifrar e e por 
isso que permitimos uma certa ''sabotagem' 1 inicial, 
detendo-se o(a) leitor(a) na analise da linha 10 on 
de com linhas tracejadas separamos os diversos•no¬ 
mes ; 

Decore-os e assim voce tera mais sucessos 
que fracassos . . . 

Alias esta vai ser uma condigao que tenta- 
se explorar e desenvolver atraves do seu TK-85 no 
volume 2 desta colegao que e o "TK-Lembrando." 

Bern, at vai o programa: 

10 LET A$ = "NIL'ZA j MARIA | VICKY | CHRIS | DULCE j NAILA j THAIS j 
STELA! WILMA j NORMA [VANIA jTELMA! CARLA" 

• I i I i 

20 LET T=0 —--► essa variavel vai acumular o 

;al de tentatxvas 

essa variavel vai acumular o 
numero de respostas certas 

50 DIM N$(5) 

60 LET R = INT(RND*13+1) 

70 LET T=T+1 

80 LET P$ = A$((R-l)*5+1 TO (R-l)*5+5) 

90 GOSUB 500 

100 FOR K=1 TO 5 

110 LET J=INT (RND*5+1) isto impede que uma cer 

120 IF A(J) < > 0 THEN GOTO 110 ta p0si $ a ° dentr ° da Pi 

lavra seja usada mais 

130 LET A(J)=1 de uma vez 

140 LET N$(K) = P$(J) 


30 LET C=0 - 
40 DIM A(5). 
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150 NEXT K -c«o ocorra a coincidSn- 

cia de que o nome forma- 
160 IF N$ = P$ THEN GOTO 90 do seja igual a palavra 

170 CLS original com esta instru 

gao elimina-se es 

180 PRINT AT 1,7; "SALADA DE PALAVRAS" ta possibilidade. 
190 PRINT AT 6,3; "QUAL t ESSA PALAVRA?" 

200 PRINT AT 12,14; N$ 

210 PRINT AT 13,14;"BOSOO " 

220 PAUSE 199 — »■ e aqui que o seu TK-85 espera um pou- 

230 IF INKEY$ K>" "THEN GOTO 260 C ° e ^ indo a P alavra P er ‘ 

mutada 

240 PRINT AT 20,2; "LAMENTAVELMENTE 0 TEMPO TERMINOU" 

250 GOTO 330 

260 INPUT R$ - ■ » aqui e a entrada da sua palavra resposta 

270 IF R$ = P$ THEN GOTO 300 
280 PRINT AT 21,13; "ERRADO" 

290 GOTO 330 

300 PRINT AT 21,8; "ESTX CORRETO" 

310 LET C = C+l - - i..- 11 » aqui se acumulam as res 

.330 PRINT AT 21,22; C; M /";T postas certas 

340 PAUSE 99 -- pausa para exibir os resultados 

350 PRINT PRINT AT 18,7; "VAI BRINCAR MAIS (S/N)?" 

360 INPUT Q$ 

370 IF Q$ = "S" THEN GOTO 60 


380 STOP 

500 FOR 1=1 TO 5 
510 LET A(I)=0 
520 NEXT I 
530 RETURN 


subrotina muito importante 
para "lirapar" inicialmente 
todas as posigoes da pala¬ 
vra que sofrera algum ar- 
ranjo. 
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As possiveis modifficagoes que podem ser fei 
tas nesse programa sao: 

a) mudanga das palavras; 

b) palavras de tamanho ou seja de compr imento maior 
porem isto exigira de voce alguns acertos etn va 
ria s 1inhas. 

Tente por exemplo 10 palavras de 6 letras e de 
pois 9 de 8 letras. 

c) o tempo para a exibigao da palavra escolhida pe- 
lo TK-85 pode ser diminuido de forma que voce 
tem menos tempo para a resposta o que pode tor- 
nar o seu jogo ate emocionante e voce pode tor- 
nar alegre uia eventual reuniao festiva com os 
(as) seus(suas) amigos(amigas). 

Gostou da ideia? 

Coloque-a em pratica!'. I 



Na realidade este jogo deveria se chamar 


"RIC0CHETEAND0" porem em homenagem ao grande amigo 
do papai que e o Luigi Zamboni, la da Nobel, resol- 
vemos chama-lo de "ZAMBONI". 

Qual e a razao? 

Muito simples, tanto o meu pai como o"seu" 
Luigi sao meio fraquinhos no jogo de bilhar e o que 
lhes falta as vezes e nogao perfeita de angulo, re- 
batidas calculadas, precisao nas tacadas, etc. 

Enfim quase tudo! 

Recomendamos aos dois e a todos este lindo 
jogo para verificar que "encagapadas" aleatorias 
nao deveriam valer. 

Vamos, fugindo do jogo de bilhar entre os 
coroas",supor que voce agora esta sendo atacado por 
projeteis vindos de uma esquadrilha no espago inter 
galatico. 

Sob o seu comando na Terra estao cinco es- 

t agoes . 

Os atacantes tambem em numero de cinco nao 
conseguem abrir fogo diretamente sobre essas esta- 
goes e para tanto langam os seus projeteis em dire- 
gao de um satelite em orbita em torno da Terra do 
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qual sao rebatidos em direqao as estaqoes que estao 
na Terra. 

Toda vez que um projetil e rebatido do sa¬ 
telite, ele ira diretamente para uma das suas 5 es- 
taqoes. Observe que o paredao que aparece na tela 
faz o papel do satelite em orbita. 

E neste momente que voce ativa as suas de- 
fesas, podendo entretanto proteger uma estaqao de 
cada vez. 

As teclas 1, 2, 3, 4 e 5 sao usadas para 
que voce possa ativar as suas defesas. 

Caso voce seja bem sucedido a sua estaqao 
sera deixada Intacta e com isso voce ganha energia 
adicional representada por pontos extra. 

Se voce nao conseguir defender a sua esta- 
qao em tempo ou defender a estaqao errada, aquela 
sob ataque sera pulverizada. 

Com o intuito de que o seu complexo apara- 
to de estaqoes de defesa possa ainda funcionar de 
vein existir ao menos 2 estaqoes. 

fi por essa razao que o jogo termina quando 

resta somente uma estaqao. 

E ai vai o programa "ZAMBONI" 


10 DIM A(5) 

20 FOR B=5 TO 15 
30 PRINT AT B,l; , '|" 
40 NEXT B 
43 LET N=0 


com este trecho do progra- 
ma forma-se a barreira que 
equivale a ter o satelite 
rebatedor 


46 LET E=0 

50 print AT 1,10;"BOOOO«OOOO«OOOO8OOOO8" 

60 print AT 20,10;" OOOOOGIDOOOSOODOSCIOOOS’' 
as linhas 50 e 60 fazem aparecer os 5 atacantes e as 5 estaqoes 
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70 LET X = INT (RND*5+1) 
80 GOSUB X*100 + 50 
90 LET C=(X-1)*5+10 — 

100 FOR L=2 TO 10 
105 PRINT AT L,C; "(o) " 
110 PRINT AT L,C; "Q" 

120 LET C=C+D -—► 

130 NEXT L 
140 GOTO 600 
150 LET D - -1 
160 RETURN 
250 LET D= -1.5 
260 RETURN 

350 LET D= -2 _ 

360 RETURN 
450 LET D= -2.5 
460 RETURN 
550 LET D= -3 
560 RETURN 

600 LET X = INT (RND*5+1) 
650 GOSUB X*100+_50_ 


sorteia o atacai^e que 
ira langar o projetil 

---- 

define claramente a co- 
luna de onde saira o 
projetil 


fara com que o angulo de desloca- 
mento seja distinto em cada lanqa 
mento 


e isto que realmente provoca 
angulos distintos no movimen 
to dos projeteis em cada es- 
colha aleatoria feita na li- 
nha 70 


600 LET X - INT (RND*5+1)-► ai vai a escolha aleatoria 

650 GOSUB X*100 + 50 P ara se em direqao 

a% , TjSi'a ^TTTI de 1 ue estaqao ira ser re- 
660 LET C=2 - ni-oiSti! . batido o projetil. 


projeti l bateu 

670 FOR L = 14 TO 19 |na bar- * 

. s 

680 PRINT AT L,C; " (o) >(_. re ^ ra a 
690 PRINT AT L,C; "Q " J 

700 LET C = C - D 

705 IF INKEY$ < > "" THEN GOTO 830 
707 NEXT L 

720 PRINT AT 20, (X-l)*5+10; "Q" 
730 IF A(X) = 1 THEN GOTO 810 


Alias no jogo entre o nos- 
so pai e o Luigi tambem e 
assim, quando se diz que a 
bola cai na caqapa X ela 
devera cair na Y... 


740 LET N = N + 1 


aqui se acumula quantas estaqoes 
ja foram aniquiladas 
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- aaui se inajj 

750 LET A(X) = 1 -- a J iquilada 

760 IF N <4 THEN GOTO 810 
770 PRINT AT 13,13; "A B ATALHA TERMINOU" 


,'aqui se indica qual e a estaqac 
I aniquilada_ 


aqui se acumula a energia cada vez 
que voce proteger a sua estaqao 
"adequadamente"_________ 


aqui se acumuia a ei 
780 STOP que voc £ proteger a 

800 LET E = E + 750 -► " adequadamente" _ 

810 PRINT AT 21,10; "ENERGIA =□"; E 

820 GOTO 70 

830 LET T$ = INKEY$ 

840 IF T$ >= "1" AND T$ <= "5" THEN GOTO 860 
850 GOTO 707 

860 IF VAL T$ - X AND A(X) = 0 THEN GOTO 800 


870 GOTO 707 



0 Baccarat e urn jogo com cartas de origetn 

francesa. 

Originaimente o "banco baccarat" era joga 


do apenas nos cassinos do continente europeu e ai 
surgiu uma variante sua chamada "estrada de ferro" 
muito jogada hoj e nos Estados Unidos. 

Ha quern afirme que o "baccarat" ja era jo- 
gado no seculo XV e a verdade e que no livro deAbbe 
Bellecour, de 1768,no seu "L'Academie de jeu" ja a- 
parecem descriqoes de jogos semelhantes ao "bacca¬ 
rat" . 

Portanto como ja dizia Lavosier "tudo se 
transforma..." e aqui estamos nos com o "Baccarat 
jogado contra o seu TK-85. 

Vejamos as regras do nosso•"baccarat" que 
podem ser um pouco diferentes das do cassino que vo 
ve visitou "por fora", perto da Foz do Iguaqu..• 

1) As duas cartas dadas para cada jogador devem so¬ 
nar 9 pontos ou quanto mais proximo melhor... 
Parece ate uma musica recente do Roberto Carlos . 

2) Todas as cartas 10 (dez) ou de valor acitna (vale 
te, dama,rei) contain zero pontos. 
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3) De toda soma de pontos - acitua de 9 subtrai-se 10. 
Portanto se o "score" for 15 (por exemplo voce 
tirou 8 e 7) ele e tornado como 5 e se for 10 ele 
e tornado como 0 (zero). 

4) £ obvio que voce joga contra o TK—85 , por em e vo¬ 
ce que joga primeiro e com as suas duas cartas 
abertas. 

0 TK-85 por sua vez tem a sua primeira carta sera 
pre fechada ou "escondida de voce". Talvez este — 
ja com vergonha de voce. 

Foram adotadas as seguintes convenqoes: 

a. 0 total de pontos do jogador aparece no lado es 
querdo da tela. 

b. o total dos pontos do TK-85 aparecem no lado 
direito da tela. 

c. Os valores das cartas estao representadas por V 
(para voce) e C (para o seu adorado microcompu- 
tador TK-85). 

d) OQ significa outra carta? 

e) S. s^g^ifica sim e N significa nao . 

Aperte a tecla NEWLINE apos cada resposta . 

f) Uepois de ter desenhado a terceira carta o seu 

TK-85 ira decidir por sua vontade (ate parece 
brincadeira que o seu TK-85 possa ter vontades 
forgadas...) se quer raais uma carta. 

1 0 MXXIMO PERMITIDO SAO TR£s CARTAS, NAO ESQUEgA... 

Os valores permitidos para as cartas sao 
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A234567880JQK- 

* * > 

as dez valete 


10 LET B$ = "A234567890JQK" 
20 PAUSE 88 
30 CLS 
40 LET X=2 
50 LET Z=2 

60 LET P=0 » variavel pi 

70 FOR N=1 TO 2 - -— sa: 

80 GOSUB 570 
90 GOSUB 630 

100 PRINT AT X+l, z+l; C$- 

110 LET P=P + R 
120 LET X=X+3 
130 LET Z»Z+2 
140 NEXT N 
150 GOSUB 790 

160 PRINT AT 19,1; "VQ"; P 
170 LET Q=2 
180 LET S=17 ' 

190 LET D=0 . » varia 

200 FOR N=1 TO 2 —-—► saida 
210 GOSUB 600 
220 GOSUB 630 
230 LET D=D+R 

240 IF N*1 THEN GOTO 260 — 
250 PRINT AT Q+l, S+l; C$ 

260 LET Q=Q+3 
270 LET S«S+2 
280 NEXT N 


variavel para contar os pontos 

» saida das suas duas cartas 


■variavel para representar a 
carta 


variavel que conta os pontos do TK-85 
saida das cartas do TK-85 


com isto nao sai impres- 
so o valor da 1§ carta 
do TK-85 
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290 GOSUB 820 — — •* vai para a subrotina 

300 PRINT AT 19,18; "C:" { J ue a J“® ta 08 P oatos 

do TK-85 setn voce sa 

310 PRINT AT 21,1; M 0C?" ber o total 

320 INPUT R$ 

330 IF R$ = "N” THEN GOTO 400 

340 GOSUB 570 

350 GOSUB 630 

360 PRINT AT X+1, Z+l; C$ 

370 LET P = P+R 
380 GOSUB 790 
390 PRINT AT 19,4; P 
400 PRINT AT 19,20; D 
410 IF D=P THEN GOTO 510 
420 IF D >P THEN' GOTO 530 

43 0 IF N = 0 THEN GOTO 550 - £ aqui que o seu TK-85 ma- 

440 GOSUB 600 nifesta a sua vontade bem 

alicerqada para ver se 

450 GOSUB 630 ainda da para ganhar e es- 

460 PRINT AT Q+l, S+l; C$ colhe mais uma carta 

470 GOSUB 820 
480 PRINT AT 19,20;D 
490 LET N=0 
500 GOTO 410 

510 PRINT AT 21,1; "EMFATOU" 

520 GOTO 20 

530 PRINT AT 21,1; "PERDEU" 

540 GOTO 20 

550 PRINT AT 21,1;"GANHOU" 

560 GOTO 20 
570 LET L=X 
580 LET C=Z 
590 RETURN 
600 LET L=Q 
610 LET C=S 
620 RETURN 
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630 PRINT AT L,C; "BOOB" 

640 FOR K=L+1 TO L+3 
650 PRINT AT K,C; "DDOtr 
660 NEXT K 

670 PRINT AT L+4, C; -Goaor 
680 LET R=INT (RND*13+1) 

690 LET C$ = B$ (R) 

700 IF R >10 THEN LET R=10 
780 RETURN 

790 IF P <10 THEN RETURN 
800 LET P=P-10 
810 GOTO 790 

820 IF D <10 THEN RETURN 
830 LET D=D-10 
840 GOTO 820 

Como sugestao, sera muita complicaqao para 
voce, que tal embutir um valor de uma aposta 
para cada jogo e um limite de ganho ou perda tanto 
seu como do TK-85. 

Basta para isso entrar com convenientes 
ins truqoes antes das linhas 520, 540, 560 e apresen 
tar alguma mensagem final,digamos na linha 900. 

Convem tambem entrar no inicio do jogo com 
o valor da aposta e da quantia limite do jogo (a ga 
nhar ou a perder.) 





13. ALFABETO 


V\ IDYr^fTr 

qVd^JL 

Este programa nao e de urn jogo, mas serve 
de motivo para que se possa dar um pouco mais de de 
talhes sobre as instruQoes PEEK e POKE, 

Vamos lembrar que apareceu um estranho e 
importante PEEK no programa 18. 

£ possivel, se bem que nao seja tao sim- 
ples, rodar programas em linguagem de microprocessa 
dor . 

Para isto e necessario conhecer a lingua- 
gem de maquina ou seja a linguagem assembler. 

Com um programa escrito em assembler pode- 
se 1ranscreve—1o para um codigo nuraerico o qual se¬ 
ra guardado internamente antes da execuqao. 

£ o comando POKE que permite esse armaze- 
namento dentro de um programa escrito em linguagem 
BASIC. 

Por sua vez dentro de um programa em BASIC 
e possixel ler o conteudo de posiqoes da memoria a- 
traves de uma referencia a fun^ao PEEK. 

Os codigos que se fornecem a instruqao PO¬ 
KE sao valores decimais correspondentes as instru- 
qoes do microprocessador , 
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Portanto dando um endevego de memoria aomo 
parZmetro da fungdo PEEK ela devolve um valor que 

esta oontido nessa posigao de memor^a. 

Na famxlia TK o enderego inicial dos pro- 

gramas e 16506 e o endereijo do inxcro da area 
guinte a Srea de programs esta disposto nas posi- 
goes 16396 e 16397. 

Essa area tern 793 posi^oes correspondentes 

a 24 linhas com 32 caracteres. 

Execute inicialmente o seguinte programi- 

nha 

12 LEX X = 16506 

14 LET Y = PEEK (16396) + PEEK (16397)*256 - 1 
16 PRINT "ENDEREQO"; TAB 13; "CONTEflDO” 

18 FOR J=X TO Y 

20 PRINT J; TAB 13; CHR$ (PEEK(J)) 

22 NEXT J 

os endereqos sao armazenados na forma de 2 
bytes, sendo a parte menos significativa no prrmei- 
ro byte e a mais significative no segundo byte. 

Para se obter o valor de um enderepo e ne- 
cessario obter a soma do que esta contido na prime! 
ra posisSo com o produto do conteSdo da segunda po- 

si§ao muItip1i cada por 256. 

Como ja dissemos a instru^So POKE permxte 

escrever em uma posijSo de memSria on seja colocar 

dado em uma posigao da memoria. 

Cora esse comando pode-se armazenar na memo 

ria uma rotina em cSdxgo de maquina assim como mu- 

dar o conteudo de posi<g3es de memoria. 

Execute agora os seguintes programinhas pa 

ra sentir mais ainda a "for 9 a" do comando POKE. 
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8 LET A = PEEK (16396) + PEEK (16397) * 256 
10 FOR J=0 TO 15 

12 POKE A + J * 33 + 13, CODE ("g") 

14 NEXT J 

Neste programs utiliza-se a area da memo¬ 
ria que e mapeada na tela ou seja colocam-se os ca¬ 
racteres nas posi^oes de memoria de onde o video re 
ceb e os mesmos que sao mo s trados na tela. 

Um outro exemplo curto porem muito instru 
tivo do uso da instru^ao POKE e o seguinte: 

18 LET X=PEEK (16396) + PEEK (16397) * 256 
25 FOR 1=0 TO 23 STEP 4 
30 FOR J=1 TO 32 STEP 5 
45 POKE X + 33*1 + J, CODE ("8”) 

50 NEXT J 
60 NEXT I 

65 LET Y = PEEK (16396) + PEEK (16397) * 256 

70 FOR M=2 TO 22 STEP 4 

80 FOR N=3'T0 31 STEP 4 

85 POKE Y + 33*M+N, CODE ("O") 

90 NEXT N 

95 NEXT M 
/ 

100 CLS 
105 GOTO 18 

Gostou da enchida de tela? 
fi, dal aparecem muitas ideias brilhantes 
para se desenhar na tela nao e? 

No programs "ALFABETO" utilizamos a memo¬ 
ria morta do seu raicroprocessador e mais precisaraen 
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te o gerador de caracteres situado a partir do ende 
rego 7680. 

Cada caractere se desenha atraves de utna 
matriz de 8 linhas e 8 colunas. 

Depois que o seu micro reconhece a letra 
do alfabeto ele ainda "le" as linhas umas apos as 
outras e substitue o 1 e 0 por caracteres de sua es 
colha. 

£ muito facil obter as mais diversas repre 
sentagoes modificando-se as lirlhas 60 e 65 do pro- 
grama que vem a seguir: 

5 REM ALFABETO 
10 FAST 

15 FOR C=38 TO 63 
20 LET K=7680 + C * 8 
30 LET X = PEEK K 
35 PRINT 

40 FOR E*7 TO 0 STEP -1 
45 LET Q = INT (X/2**E) 

50 LET X = X - Q*2**E 

60 IF Q-1 THEN PRINT 

65 IF Q«0 THEN PRINT 

70 NEXT E 

80 LET K»K+1 

100 NEXT J 

110 PAUSE 222 

120 CLS 

130 NEXT C 

999 STOP 


6 forraidavel este programs nao e? 
Que lindas letras se exibem!?! 
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0.1. 1) Reconendamos, para aprender bem o BASIC os 

livros do nosso pai Linguagem BASIC e BASIC SEM SE- 
GREDOS. 

2) Muito didaticas e simples de acompanhar,sao 
tambem as "Ligoes de BASIC" redigidas por Flavio 
Rossini e Pierluigi Piazzi. 

Para que voce tenha as mesmas basta ter a 
Mic rohobby. 

Vamos , mexa-se, melhore a sua bibliogra- 

f ia! 


Sera que com o 0.1.1 fui urn chato gratitu- 

dinens e? 


Expliaagao: 

Gratitudinense e uma incrivel categoria de 
chato, pois e aquele ao qual devemos grat-idao. 

Um chato desta especie e identificavel por 
expressoes do tipo: 

"Salvei-o de raorrer afogado, quando voce 
tinha tres'anos!" 

"Ensinei BASIC a voce em 1985!" 

Os chatos gratitudinenses subdividem-se em 
proclamantes e implicitos ou "enrustidos". 





Em primeiro lugar nao fique pasmado com o 
tamanho do programa, que e relativamente pequeno. 

Com ele voce dominarS toda a tela e tera 
liberdade de se deslocar nas 8 diregoes e sentidos 
que desejar desde que seja norte, noroeste (NW),nor 

deste (NE), leste, oeste sudoeste (SW) e sudeste 
(SE). 


Voce conseguira isto manipulando as teclas 
4,5,6,7 e 8. 

Cabera a voce descobrir com qual vai par^ 
o norte para o sul, para o noroeste, etc. 

Alias a instru^ao fundamental para isto e 
a de numero de linha 160. 

0 programa e auto explicative porem nSo es 
quega que para se deslocar voce deve apertar o "M"~ 
para imprimir deve teclar o "I" e para limpar o "L"! 

No "0(A) EMfiRITO(A) PINT0R(A) u voce n obri- 
ga o seu TK-85 a fazer caminhar o caracter que qui 

ser atraves da tela e deixar atrSs de si uma tri- 
Ih a. 


£ tremendamente simples mudar de um carac- 
tere para outro, para com isto obter um aspecto dos 
mais blrbaros para os seus desenhos... 

Bern, digite agora 


o programa a seguir: 
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E conveniente que voce coloque o seu TK-85 
no modo FAST a medida que vai entrando com o progra 
ma "0(A) EMfiRITO(A) PINTOR(A)". 

Antes de executar o programa volte ao modo 

SLOW. 


0.1. Os amigos Angel D. Zaccaro Conesa e Slyaro A. 
L, Domingues nos permitiram usar a impressora da Mi 
cromega e com isso daqui para frente todos os pro- 
gramas serao apresentados com as listagens obtidas 
nessa impressora, inclusive com alguns dos desenhos 
que podem ser obtidos, como no programa "0(A) EMERI 
TO(A) FINTOR(A)". 


No caso especifico dos muitos programas 
que restam ainda (que bom, nao e?) as listagens a- 
presentadas evitarao erros de datilografia, se bem 
que o meu amigo Toshiro nao erra e quern erra sou 
eu. . . 

Alem disto, podemos apresentar desta forma 
as "saidas" ou "resultados", que em muitos casos ex 
plicam ou pelo menos ajudam a entender melhor o pro 
grama. 


Al vai o programa: 


23 PRINT RT 1,1; "M=H0UE .. I=IMPR 
IME,LaLIMPfl" 

30 LET fl = i 
4-0 LET B=0 
50 LET X =31 
50 LET Y=21 

70 REM URM05 RTIURR 0 PRIMEIRQ 
PIXEL 

30 GOBUB 1300 
Q0 PLOT X . Y 

100 REM URI 5E E5PERRR POR UMR 
ENTRRDR UIR TECLRDQ 
110 IF INKEY$="“ THEN GOT0 110 
120 LET E$=INKEY* 
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3-?® then goto ib 

05 3 °H™DQS PRRfl 
U MOUIMENTO DR IMPRE5SR0 

E$ = ,, I*' UR E$ = "h" THEN GO 

JUu 500 

rnS,i F RND £$ : =''S" THEN 

bOoUB ' 100* (URL tE*) +6U 
170 GOTO 110 

|?g It X ~ 63 THEW LET Hs-fl 
§1® It ; <= * THEN LET *=R 
Sc0 IF Y=R THEN LET U=pfi 
5P0 IF Y=4-0 THEN LET U = -fi 

IF THEN UNPLOT X ,Y 

550 LET X =X +H 
560 LET Y=Y+U 
570 PLOT :<,V 
S3© RETURN 

on 9 I- R f x, RI >JR0 *S SUBROTINRS Ph 
Rh flo DIUERSflS DIRECOES 
700 LET H =—h 
710 LET U=H 
720 PRINT RT S,B;“NU 

730 RETURN 
500 LET H=R 
310 LET U=R 
520 PRINT RT B . B . “NE 
330 RETURN 
900 LET H=fi 
910 LET U = -R 
920 PRINT RT E,B;“SE 
930 RETURN 
1000 LET H=-fl 
1010 LET U = -fi 
1020 PRINT RT 6,5; "SU 
1030 RETURN 
1100 LET H=-fl 

fill 

1200 LET H=E 
1210 LET U=-R 

iiil HETURH flT B ' B; " PSRfl " 

1300 LET H=5 
1310 LET U=R 

1320 PRINT RT B,B;"PRRR CIMR 

1330 RETURN 
1400 LET H=R 
14-10 LET U=B 

1130 RETURN BT 


0.1, - Cuidado agora para "acertar" o numero certo 
de espa$os em branco nas linhas 720, 820, 920,1020, 
1120 , 1220, .1320 e 1420. 

Sera que voce e capaz de obter desenhos se 
melhantes aos indicados abaixo? 
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F'RRfl CIMR 

M=MO'JE , I = IMPRIM£,L=LIMPfl 
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I 

O.I.final - 0(A) curioso(a) leitor(a) ja percebeu 
que com o PRINT AT conseguimos imprimir Caracteres 
na tela usando um tamanho de 22x32 (linhas x colu- 
nas) ao passo que com o versatil comando PLOT usa- 
mos a tela no tamanho 44x64 (linhas x colunas) e 
fazemos aparecer pequenos pixels ou retangulos ne- 
gros . 

Voce quer dar um saltinho agora para o pro 
grama "FAZENDO A CABE^A". Nao e uma pergunta,e um 
pedido e uma ordem viu?I!!! 








Ja deu para perceber que o seu TK-85 e bas 
tante bom para desenhar. 

Porem falta muito ainda para que voce esti 
mado(a) leitor(a) perceba toda a sua versatilidade. 

Hesse programa curto, porem artistico voce 
tera na tela muitas estrelas em uma noite clara no 
centro de uma megalopolis. 

G» isto so e possivel na tela do aparelho 
de T.V. ligado ao TK-85, mas ai vai o”programinha": 


10 FDR Z=1 TO 20 
20 PRINT AT 9#RND,31*RND;CHR* 
23 

30 PRINT AT 9*RND,31*RND,CMR$ 

£ 7 

40 PRINT AT 9-RND,31*RND.CHR$ 
27 

50 PRINT AT 5*RND,31#RND;CHR$ 
23 

60 PRINT AT S*RND,31*RND;CHR* 
27 

70 NEXT Z 

75 REM FORMACAO DOS EDIFICI05 
S0 FOR K =0 TO 31 
90 LET H = I NT (RND*i3)+10 
100 IF RND>.7S OR (K>14 AND K<1 
9) THEN GOTO 140 
110 FOR B=A TO 20 
120 PRINT AT S,K;CHR$ 139; 

130 NEXT B 
140 NEXT K 

145 REM FIXACAO DA PRACINHA 
150 PRINT AT 20.15;"0000" 

155 REM DESENHO DA "BASE" 

160 FOR 0=0 TO 31 

165 PRINT AT 21,C;CHR* 136, 

170 NEXT C 
175 FOR U=1 TO 1A9 
130 NEXT U 
190 GOTO 5 
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O.I. Note como e importante a instrugao de 
de linha 100 para se poder ter a "pracinha" 
da cidade. 

Comentarios sobre as fungoes CODE e CHR$ 

(veja as linhas 20 e 30 por exetnplo) 

Definigoes 

fCODl] A fungao CODE aplicada a uma variavel 

STRING fornece o codigo do primeiro carac- 
tere da STRING ou 0 se a STRING for vazia, 

ICHR$1 A fungao CHR$ aplicada a um numero fornece 
o caractere cujo codigo decimal e o numero 


numero 
no meio 



em questao. 


Figura 1 


Execute o seguinte programinha bem simples 


10 PRINT AT 21,0; "QUAL E 0 NtJMERO DO CODIGO?” 

20 INPUT C 

30 IF C > 255 THEN GOTO 20 
40 CLS 

50 PRINT AT 8,8; "CODIGO"; C; CHR$C 

60 GOTO 10 

como sugestao escolha para C qualquer valor indica- 
do nas telas das Figuras 1, 2 ou 3. 

Agora voce ja sabe o que se mandou impri- 
mir com CHR$ 23 e CHR$ 27 nas linhas 20,30,40,50 e 
60 no programa "0 CfiU EM UMA CERTA NOITE DA CIDADE"? 



Figura 2 





106 



Figura 3 


Para sentir o efeito da funqao CODE tecle 
e aproveite o seguinte programa: 

10 PRINT "TECLE UMA PALAVRA O □ □ " J 
20 INPUT P$ 

30 PRINT P$ 

40 PRINT "VIDEO INVER SO :□□□ 

50 LET R$=" M 

60 FOR J-l TO LEN P$ 

70 LET R$ * R$ + CHR$ (CODE P$(J) + 128) 

80 NEXT J 
90 PRINT R$ 

100 PRINT 
110 GOTO 10 



Este e o conhecido jogo da memorizagao no 
qual voce admirado(a) jogador(a) tem que lembrar a 
sequencia gerada na tela pelo seu TK-85 e tentar re 
petir a mesma, 

0 objetivo como ja dissemos e que voce re- 
pita exatamente a sequencia vista,que no nosso caso 
particular sera de letras e numeros. 

A sequencia vista e apagada depois de um 
certo tempo e caso voce acerte na repetigao,e gera¬ 
da uma nova sequencia com os mesmos caracteres ante 
riores agregada a qual vai um novo caractere. 

No caso de letras e numeros uma boa conta- 
gem inicial e ate 10 repetigoes corretas. 

Com um pouco de treino voce pode chegar 
ate uma sequencia de 13 caracteres corretas quando 
ira receber uma linda mensagem de congratulates. 

Dal para frente so um Di Genio pode lem¬ 
brar mais . . . 

Alias o professor Joao Carlos Di Genio no 
encerramento do I Encontro Nacional do Centro de 
Pesquisa e Tecnologia Objetivo (novembro-1983) dis- 
s e: 

"0 uso do computador na Escola e um recur- 
so audiovisual inteligente que dialoga com o aluno, 
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desiniblndo-o, ao mesmo tempo em que individualiza 
o aprendizado. 

2 um uetodo revolucionario,dinamico e seu 
processo, adequado a cultura e a realidade educa 
cional brasileira, deve ser continuamente aperfei- 
goado, pois a Escola tem a fungao de se antecipar 
ao desenvolvimento tecnologico e estar preparada pa 
ra formar seus alunos com eficiencia". 

Esperamos que a nossa minuscula cooperagao 
dentro desse contexto seja a de fornecer um livro 
que possa ser usado naquela Escola que ja implantou 
o uso do microcomputador. 

Ai vai o programa: 


10 LET G $ = "M" 

20 LET E$=" " 

33 LET S$ =" “ 

4-0 FOR C = i TO 13 

50 LET R=26'+INT (36*RND) 

60 LET S$ = 3 $ + CHR$ R 
70 FAST 

SO FOR T = 1 TO 5 

90 LET G=PEEK (7573+T+6*R) 

100 LET 

110 LET D =256 

120 FOR I s'S TO 1 STEP -1 

130 LET D =D/2 

14-0 LET C$=E$ 

150 IF S<D THEN GOTO 160 
1S0 LET C$=G$ 

170 LET G=G-D 
160 LtT P$=P$+C$ 

190 NEXT I 
200 PRINT P$ 

210 NEXT T 
220 3 L 0 US 

230 PAUSE 75-3*0 

240 CL5 

250 INPUT P$ 

260 IF S$ R$ THEN GOTO 360 
270 NEXT c 

230 PRINT 'ENTRE COM 0 SEU NOME 
(ATE 20 CRRACTERES)" 

290 INPUT N$ 

300 CLS 

310 FOR J=1 TO 7 

320 PRINT "PARABENS ";N$ 

330 GOSUB 1000 
340 NEXT J 
350 STOP 


2*0 £5|nt "ugce disse 

RRETO E 'vsi E UMa PENfl 
330 GOTO'350 


POIS 


0 CO 


1000 DIM 
1010 FDR 
1020 LET 
256*PEEK 
1030 NEXT 


A ( 33) 

M=1 TO 33 
fi(M)=PEEK 
16397) +M'i 
M 


( (FEEK 1635b + 


1040 SCROLL 
1045 FOR M =1 TO 33 

“!§7?SBf,i518? EK 

1060 NEXT M 
1070 RETURN 


Com&n'ta.T'ios sobve o procfvarruz 

1) Observe a instrugao de numero de linha 230. 

A medida que voce vai acertando o tempo de expo- 
sigao na tela do ultimo caractere escolhido vai 
diminuindo. 

2) 2 na linha 260 que se verifica se a sua sequen- 
cia confere com a do TK-85. 

Em caso negativo pode sair a mensagem do tipo 

UuCE DX3 5c. 5637S 

E UMfl PENfl POIS 0 CQRRETO E S9*“ 

3) Devido ao trecho do programa que vai da linha de 
numero 80 ate a de numero 210 as letras ou nume- 
ros escolhidos pelo TK-85 sao exibidos era tama- 
nho aumentado como por exemplo o "s" abaixo: 





no 


4) Finalmente se voce conseguir repetir uma sequen- 
cia de 13 caracteree (letras ou numeros) podera 
receber uma mensagem do tipo: 

PflRRBENS NILZfl M. MIRSHflUKfl 


PflRRBENS NILZfl M, MIRSHflUKfl 
PflRRBENS NILZfl M. MIRSHflUKfl 
PfiRRBENS NILZR M. MIRSHflUKR 
PflRRBENS NILZR M. MIRSHflUKR 
PflRRBENS NILZfl M, MIRSHflUKfl 
PflRRBENS NILZfl M, MIRSHflUKfl 

O.I. - Em publicaqoes recentes no Brasil encontram- 

se versoes interessantes ou variantes desse jogo. 

Assim destacamos: 

1. No nosso livro "De um APPLE a sua vida". 

2. No artigo "Pequenos programas para o TK e NE" de 

Paulo Cesar F.S. Cunha (Micro Sistemas, N9 18 *- 

marqo - 1983). 

3. Na Colegao de Programas vol. II - de Tanios Ham 
zo editado pela Microomega em conjunto com a Edi 
tora Moderna no qual aparece com o note SIMON. 

4. Na Micro Sistemas de dezembro de 1983 saiu uma 
sofisticada versao devida a Jose Eduardo Ribeiro 
da Costa. 

5. No livro da Linda Hurley, "Programaqao para o 
TK-82/ TK-83/ TK-85 e CP-200", que a Me Graiw Hill 
do Brasil acaba de lanqar no mercado "informati- 


co 



O 


£ muito facil mover "coisas" na tela doseu 
aparelho de T.V. quando a mesma esta conectada ao 
seu TK-85. 

(Pode-se deSlocar objetos de cima para bai- 
xo ou vice-versa, pode-se move-los mais depressa ou 
mais lentamertte. 

Alias o itttuito desse programa e mostrar 
em etapas a forma como se consegue isto. 

£ dessa forma que vamos embutindo em voce 
perplexo(a) leitor(a) a arte de programar que obvi 
mente como qualquer outra arte nao tem sua base ap 
nas no conhecimento mas tem muito de voca$ao e de 
"jeitinho para a coisa". 

A forma de produzir animaqao no seu TK-85 
e a mesma que se usa em desenhos animados ou seja 
exibe-se um quadro e entao mostra-se o mesmo quadro 
em uma posiqao um pouco diferente e assim por dian- 
te. 

Quando a gente desenha uma reta na tela po 
de-se notar a sua evolugao (veja o item d) e tudo 
o que precisa ser feito para obter o movimento de 
uma imagem e apagar a sua trajetoria. 

Comecemos pelo "pequeno" mas util progra- 

rainha: 


i<t> im 
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a) 

10 FOR_x =0 ^0 53 

£0 PLOT - r , G 
30 UHPlG" ' 0 
40 NEXT . 


Como voce, percebe trepidante leitor(a) um pi 
xel" ou seja um pontinho move-se "rapidinho" na 
1inha de cima da tela. 


Para tornar esse tnovimento um pouco raais lento e 
um pouco mais "perceptivel", vamos acrescentar 
uma pequena pausa. 


Coloque entSo um 25 PAUSE 50 e diminua com isto 
a velocidade do seu "pixel 11 . 


b) Vamos agora escrever um "programinha" que movi- 
menta uma "pinta" em torno das bordas da tela no 
sentido anti-horario comeqando na origem (canto 
inferior da esquerda). 


10 FOR X =0 TO 53 
£0 PLOT X;0 
30 G 0 S U B 100 O 
4.0 UNPLOT X , O 
50 NEXT X 
50 FOR V =0 TO 43 
70 PL OT 6 3.Y 
30 GOSUB 1000 
90 UNPLOT 63 .. Y 
100 NEXT Y 

110 FOP. X = 63 TO 0 STEP -1 
120 PLOT X.43 
130 GOSUB 1000 
140 UNPLOT X j43 
150 NEXT X 

160 FOR V =43 TO 0 STEP -1 
170 PLOT O,Y 
130 GOSUB 1000 
190 UNPLOT 0 , V 
200 NEXT Y 
£1© STOP 
1000 FRU3E 13 
1010 POKE 16437.£33 
1020 RETURN 
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0.1. As vezes e bom incluir um POKE apos cada PAU¬ 
SE se voce estiver no modo FAST, como alias esta in 
dicado nas instrugoes de numeros de linha 1000 e 
1010 . 

Porem voce tambem pode ter as seguintes 
instrugoes no lugar do PAUSE e do POKE 

1000 FOR Z=1 TO 33 
1010 NEXT Z 

c) Para se ter um realismo maior vamos movimentar 
um objeto ou seja um "T" de cabega para baixo. 

Ai vai o "programinha" para sentir este efeito: 


10 
£0 
30 
40 
50 
60 
70 
60 
90 
100 
110 
120 
125 
130 

Como se pode notar, nao e o objeto todo que pre- 
cisa ser limpo a cada instante pois algumas par¬ 
tes sao usadas para formar o proximo desenho da 
16trs ** T. 

d) Vamos agora desenhar uma reta cujo angulo com a 
horizontal pode variar no intervalo 0° a 90° (ex 
tremos.excluidos). 

A reta e desenhada a partir da origem da tela do 
seu TK-85 (veja o programa "PLOTANDO COM MAIS DE 
TALHES” para lembrar ben a diferenga entre oPLOT 
e o PRINT AT"). 
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Ai esta o "programinha": 


20 INPUT fi 
30 PRINT ft 

4-0 IF fl 'S OR fl>90 THEN GOTU 20 
50 LET MsTflN (R*2*PI/3S0'■ 

60 FOR X=0 TO 43 

7G IF M4X>43 THEN GOTO 100 

30 PLOT >: , I NT iM*X) 

90 NEXT X 
100 FOR 1=1 TO 77 
110 PRINT RT 0,7; 

12© GOTO 10 


Comentavios 


Linha 50 - Com esta instrugao obtem-se o coeficien- 
te angular da reta que passa pela origem. 


Linha 60-90 - Desenha-se ate que se atinja o limite 
da tela na diregao vertical. 


Linha 110 - Tome cuidado para nao deixar de colocar 
os quatro espagos em branco dentro das 
aspas para limpar o valor do angulo es- 
colhid o. 


Linha 120 - Com esta instrugao volta-se ao comego 
do programa, entra-se com um novo valor 
do angulo p assim voce pode obter o fei- 
xe de retas indicado abaixo. 
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e) Em boa parte os jogos de T.V. envolvem uma bola 
que bate, rebate e pula na tela. 


Vamos supor no programa que apiesentaremos a se- 
guir que se uma bola bate em uma parede com um cer- 
to angulo, sera rebatida segundo o mesmo angulo (ve 
j a a Figura 1). 



Figura 1 


Em vista do que esta mostrado na Figura 
tem-se que 

tg (90 - a) = - t g (90 + a) 

Portanto se uma bola (agora a "pintinha" 
passou a ser uma bola...) deslocando-se com um coe-| 
ficiente angular m colide com uma parede em um pon— 
to (a,b) continuara o movimento segundo a equagao 

y = m(x-a) + b 

porem com o coeficiente angular m de valor oposto 
ou seja com sinal contrario. 

No programa que voce vai teclar daqui a 
pouco faz—se o seu TK-85 desenhar uma reta a partir 
da origem da tela e "rebate-se" a mesma quando ela 
chega a algum bordo da tela. 

Entre com um angulo que esteja entre 20° e 
80 para perceber bem o bate-rebate... 
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10 PRINT "ANGULO = ".< 

20 INPUT A 
£S PRINT H 
30 FOR 1=1 TO 93 
32 NEXT Z 
35 CL5 

4-0 LcT M =Tfif-i t fi iP * ■■■ 130 1 

50 LET X =0 

60 LET J=1 

70 LET C=0 

30 LET X=X+J 

■90 LET Y=M*X+C 

100 IF Xi=0 GR ■ =0 THEN STOP 

110 IF X > =63 OP Y > =43 THEN SUTU 
14-0 

120 PLO,T X , Y 

123 FOR Z=1 TO 33 

125 NEXT Z 

127 UNPLOT X,Y 

130 GOTO 30 

140 LET M=-H 

150 LET J =J-2* iX =53 * 

160 LET C=Y-N*X 
170 GOTO SO 


Sera que voce consegue uma saida como a in 
dicada abaixo? 



Comentarioe 

Linha 140 - 2 com esta instrugao que forga-se a mu- 
danga da diregao do movimento. 
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Linha 150 - Aqui quando X for igual a 63 a expres- 
sao (X = 6 3) sera verdadeira e valera 1, 
quando entao o novo valor de J passara 
a ser J = - 1 . 

Que tal voce ver apenas a "bola" se deslo- 

cando? 

Querendo isto, basta acrescentar ao pro- 
grama as seguintes instrugoes 

123 FOR Z=1 TO 33 
125 NEXT Z 
127 UNPLOT X,Y 

to R leitor NH ° M PARA V0C£ vibrante ^ITORA OU INQUIE- 

a) Elabore urn programa que desenhe a teia de uma a- 

ranha usando um Sngulo de 0° a 90° era intervalos 
de 5 ° era 5 °. 

b) "Melhore” o programa do item a) utilizando a e- 
quagao y = m(x-32) + 22 e fazendo o coeficiente 
angular (m) da reta dada variar de -5 ate 5 com 
passo 0,5. 

0.1. - No livro da Linda Hurley "ProgramagSo para 
TK-82/TK-83/TK-85 e CP-200" que a Me Graw Hill do 
Brasil acaba de langar voce interessado(a)lei tor(a) 
encontrara outras explicagoes complementares sobre 
movimento para baixo, para cima ou lateral. 




18. PALINDROMO 





Caro(a) leitor(a), voce sabe o que e um pa 

llndromo? 

Bern, de uma forma geral palindromo e uma 


colegao ou sequencia de caracteres (letras,digitos , 
slmbolos especiais) que tem o mesmo significado 
qualquer que seja o sentido em que se leia. 

Isto e, pode ser lido de tras para frente 
que da no mesmo... 

Al vao alguns exemplos: 


RADAR 
ARARA 
MUM 
37073 
21 ?12 
EYE 


Os palindromos mais simples de serein forma 
dos sao os numericos. 

0 exame dos "numeros palindromicos" e um 
campo muito rico com possibilidades imensas para a 
eomputagao ariativa. 

Uma conjetura relativa a palindromos gera 
uma questao interessante nao respondida ainda. 

Comecemos com um numero inteiro. 
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Se o mesmo nao § urn pallndromo inverta a 
sequencia dos seus digitos e some os dois numeros. 

Se a soma nao e um pallndromo, trate o re- 
sultado como o numero original e assitu continue... 

0 processo deve terminar quando for obtido 
um palindromo. 

Exeraplos: 


15 

78 

19 

■ 4 * 

+ 87 

+ 91 

51 

165 

110 

6 6 

+ 561 

+ Oil 

726 

121 

alIndromo 

+ 627 
1353 
+ 3531 

l: 


4884 

—►pallndromo 


indromo 


A1guns supoem que o que foi mostrado aciraa 
e sempre validol!! 

Ha cases (raros) em que isto parece nao 
acontecer... 

Na tnaior parte dos numeros menores que 
10000 obtem-se um pallndromo em menos de 2A adi- 
90 es . 

Isto entretanto nao e uma regra e alias vo 
ce sabe que toda regra tern os seus furos (alias vo¬ 
ce sabe como se pode tornar um barril cheio e pesa- 
do mais leve? Resp.: enchendo-o de furos) 

Com o numero 196 apos duas "inversoes" che 
ga-se a 1675 (verifique isto), mas apos 100 inver¬ 
soes de 1675 seguindo o metodo explicado a soma re- 
sultante tera 47 digitos e nao se tera ainda um pa¬ 
llndromo? !?!?!? 
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Lamentavel, e o que se pode dizer do 1675... 

Um grande conjunto de numeros nos leva ao 
1675 como per exemplo 295, 394, 493, 592, etc. 

Dada a serie acima, voce e capaz de desco- 
brir o proximo numero que leva ao fatidico 1675? 

Resp.: 691 

+ 196 
887 
788 

167 5 -*.Al, cade o nosso pallndromo? 

0 programa que se apresenta abaixo "exige" 
a entrada de um numero como valor inicial e o mesmo 
executa o processo de adi<joes sucessivas do numero 
com aquele formado com os seus digitos colocados no 
sentido inverso ou seja o numero reverso testando- 
se a cada passo se a soma obtida e um pallndromo. 

Ai vai o programa: 


10 PAUSE £77 
20 DIM P(4S) 

30 CL5 

L0 PRINT "DE-ME UM NUMfcPO 

50 INPUT N 

55 PRINT 

60 LET C=0 

70 LET C =C+1 

30 LET N=N/10 

90 IF INT N>0 THEN GOTO /0 
100 FOR I=C TO 1 STEP -1 
110 LET N*N*i0 ... , 

120 LET P (I) =INT (N-10#INT (N/l 
01 1 

130 NEXT I 
14.0 LET a=0 

150 FOR 1=1 TO INT CC/2) 

160 IF P (I) < ,'P (C + l-I) THEN LuT 
5 = 1 

170 NEXT I 

130 FOR I=C TO 1 STEP -1 
190 PRINT CHR$ !P(D+25); 

20© NEXT I 

210 IF 5=1 THEN GOTO 270 
220 FOR 2=1 TO 96 
230 PRINT "T"; 

240 NEXT Z 

250 PRINT "DEMOROU MRS UOCE OBTE 
UE UM PRL INDROMO." 

260 RUN 
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270 PRINT " NRO £ UM PRL INDRuM 
0 " 

230 IF C/2>INT (C/2) THEN LET P 
(INT (C/2)+1>=2*P(INT iC/2)+1) 
290 FOR 1=1 TO INT (C/2) 

300 LET P(J)sP(I)+p(C+l-I> 

310 NEXT I 

320 FOR 1=1 TO INT (C/2) 

330 LET PeC+l-I)=P(I) 

34.0 NEXT I 

350 LET P (C+.1) =0 

360 FOR 1=1 TO C 

370 LET P (1 + 1) =P ll + l) +INT (P(I) 
/ 10 ) 

330 LET P(I) bP(I) -10*INT (P(H 
10 ) 

39S NEXT I 

4-00 IF P(C + 1)>0 THEN LET C=C +1 
4-10 SOTO 14.0 


Al vao tambem duas possiveis saidas: 


OE-ME UM NUMERO 

73 NRO E UM PPLINDROHO 
165 NRO E UM PRLINDROMO 
726 NRO E UM PRl.INDkGMG 

1353 NRO E UM PRLINDROMO _ 

4.334 

^ •?'? 9 7 1 /' '' r ‘ •’ 

■? 7 7 7 7 7 7 7 7 ‘7 ‘7 '7 ‘7 7 7 7 ” 7 7 7 “ k 77 77 “• 7 

?DEHOR6U MR5 U0CE OBTEUS UM PR 
LINDROMO 


DE-ME UM NUMERO 

1675 NRO E UM PRLINDROMO 
74-36 NRO z UM PRLINDROMU 
13733 NRO E UM PRLINDROMO 
52514- NRO E UM PRLINDROMO 
p4.039 NRO E JM PRLINDROMO 
137033 NRO E UM PRLINDROMO 
1067869 NRO E UM PRLINDROMO 
107554-70 NRO E UM PRLINDROMO 
13211171 NRO E UM PRLINDROMO 
353224.52 NRO E UM PRLINDROMO 
6074-4.805 NRO E UM PRLINDROMO 
•111589511 NRO E UM PRLINDROMO 
227574-622 NRO E UM PPLlNDPOMu 
4-54.05034-4- NRO E UM PRLINDROMO 
397100793 NRO E UM PRLINDROMO 
1794-102596 NRO E UM PRLINDROMO 
874-6117567 NRO E UM PRLINDPCMC_ 
16403234-04-5 NRO E UM PSlINDRuMU 
70446464506 NRO E UM PALlNDRuMC 
130992928913 NRO E UM PRLINDROM 
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Teste o seu programa para outros numeros e 
espero que nenhum caia no "horrivel” 1675 que da 
um "bode" Incrivel... 

Caso, em alguma outra situaqao a tela tam¬ 
bem ficar cheia nao titubeie para apertar o CONT 
para limpar a tela e continuar os calculos, 

0 .1. 1) £ muito interessante para o(a) sempre curio 
so(a) leitor(a) ler o artigo "Reversao" de Alvaro 
C. Talavera da Microhobby N9 11 e la voce encontra- 
ra, entre outras coisas a sentenqa palindromica. 

_ . . . » 

sator arepo tenet opera rotas 

Voce sabe o que isto significa? 

2) No livro "BASIC para crianqas dos 8 aos 80 
de M.P. Zabinski" da Editele aparece um programa 
que permite verificar se uma palavra e pal-indronri- 


oa. 







Neste jogo muito simples, porem atraente 
o seu TK-85 lhe pedira para "advinhar" onde esta o 
rabinho de um cao... 

0 cachorro estilizado e exibido na tela du 
ramente pouco tempo e al a sua imagem desaparece. 

0 TK-85 lhe pergunta o valor das coordena- 
das do ponto onde deve ser colocado o rabo do cao- 
zinho. 

0 numero maximo de tentativas e quatro. 

Bern, com quatro tentativas so um asno nao 
acerta apos um certo tempo de pratica quando entao 
entre outras coisas o(a) atento(a) leitor(leitora) 
ira dominar totalmente a posigao das linhas e colu- 
nas do seu video ou mais precisamente da instruqao 
PRINT AT. 

Se apos um certo tempo de pratica neste jo 
go, quatro tentativas nao forem suficientes para de 
terminar a posigao do rabo do cao, mexa na instru- 
?ao de numero de linha 110 sabotando o jogo e colo- 
cando por exemplo T=? ou a outra opgao que e com 
prar um azimute... 

Ai esta o programinha "caozinho joia" 
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5 RAND 
IS LET L =0 
20 LET C=L 
30 LET T =L 

40 LET Y=IMT (RND*2S)+1 
50 LET X = INT (RND-S13) +2 
60 CLS 

70 LET R$ = " J" 

30 LET B$ = " f“f" , , 

90 PRINT RT X , Y; fl$,i RT X + i , 1 , p$ 

;RT L.C; "/" _ 

100 IF L=X RND C=Y + 4 THEN GOTO 
280 

110 IF T =4 THEN GOTO 220 
120 FOR Z=1 TO 21 
130 NEXT Z 
140 CLS 

150 PRINT "POSICRO DO RflBO" . 

160 PRINT ,,“POSICRO UERTICRL D 
E 2-19" 

170 INPUT L 

130 PRINT ,,"POSICRO HORIZONTRl 
DE 5-30" 

190 INPUT C 
20© LET T=T+1 
210 GOTO 60 

220 PRINT RT X -2,2;"UOCE NfiO SR 
BE ONDE'E R POSICRO DO RflBO DO H 
SNO" 

230 PRINT 
240 PRINT 

25S PRINT "fll URI R, RESPQSTfl: 
260 PRINT ,,X;" ";Y+4 

270 PRINT "UOCE OUER TENTRR OUT 
RR UEZ «S/N)?"' 

272 INPUT R$ 

274 IF R$="5" THEN GOTO 5 
276 STOP 

J=3G PRINT RT X -2,2: " CORRET 0 .. UO 
CE RCERTOU EM ” ; T ; " TENTATIUR US) 
“ : RT X-2,2; "HSSSS®” 

290 IF INKgY$="" THEN GOTO 230 
300 GOTO 270 


"fll Ufll R. RESPQSTfl: 

. . X; ’' " ; Y+ 4 

"UOCE OUER TENTflR OUT 


Bern, espero que voce nao precise "sabotar" 
o programs e quatro tentativas seja urn limite rara 
mente superado e apareqa muitas vezes a mensagem do 
tipo: 


, UOCE RCERTOU EM 


TFITIUR (S) 


TEN 



Quern ja nao brincou com o jogo da"FORCA"? 
Al vai um programa que permite o jogo de 


duas pes soas. 

A primeira tecla uma palavra (obviamente 
sem que a outra veja) e a segunda pessoa tenta advi 
nhar as letras e dessa forma descobrir qual e a -pa- 
lavra. 

Nessa nossa "forquinha" e dificil de ser 
executado pois lhe damos um numero de "chances” 
igual a 10 (veja a linha 170). 

Bern, e evidente que se forem esgotadas to- 
das as tentativas de "chute" e voce nao acertar, o 
premio e ser executado e uma linda mensagem grafica 
desse tipo surgira, podes crer... 

Alias, um a boa sugestao, para que voce c on 
siga "enforcar" o outro e vice-versa e embutir pala 
vras bem curtas. 

E isso ai, tente na sua vez e vera que 

nos teios razao. 

Calma, calma nao briguem antes do tempo 
pois o TK-85 e vosso servo e apenas um intermedi 
rio da vossa distragao. 


Combinadol!! 


rcui 
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Ai esta o nosso programa "A FORCA" 


10 PRINT 
20 PRINT 

30 PRINT "MOUfi PRLRURfl?’* 

4.0 INPUT P$ 

50 LET P =LEN PS 
b0 DIM iP3 

70 LET T =0 
30 PRINT P ; "LETRR'5" 

90 PRINT "fiDUINHE 7 " 

100 INPUT L4 
110 CLS 
120 LET C=0 
130' FOR L =1 TO P 

14-0 IF P$ CL) =L $ THEN LET R$(L)= 

$ 

150 IF R$ it) =L$ THEN LET C=1 
160 NEXT L 

170 IF NOT C THEN LET T=T+1 
130 IF P,$ = F $ THEN GOTO 510 
190 PRINT 
200 PRINT R$ 

210 PRINT 

220 FOR 6=230 TO 230+20*T STEP 
20 

230 G05UB 5 
24.0 NEXT 5 

250 IF T = 10 THEN PRINT “Pi PRLRU 
Rh CERTfi E: ";P$ 

2b0 IF T = 10 THEN RUN 
270 PRINT 
275 GOTO 30 
230 RETURN 


300 PRINT "fi 
310 RETURN 
320 PRINT "mi 
33© RETURN 
34.0 PRINT " 
35© RETURN 
360 PRINT " 
370 RETURN 
330 PRINT ‘ 
335 RETURN 
4-00 PRINT " 
410 RETURN 
420 PRINT " 
430 RETURN 
440 PRINT " 
445 PRINT 
455 RETURN 
460 PRINT ’ 
470 RETURN 
430 PRINT "fc' 
490 RETURN 
510 CLS 



520 FOR K:1 TO 17 

530 PRINT RT K,5."U0CE RCERTOU" 

540 NEXT K 

550 PRINT RT 13.2:"fl RESP05TR E 
";R$ 

560 GOTO 30 
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Espero que poucas vezes lhe apares* a men 
sagem abaixo: 



R PRLRURR CERTR E:CROUI 
NOUR PRLRvRR^ 


Apesar do Alvaro A.L. Domingues - Editor 
da excelente revista Microhobby ter nos dito que e 
proibido lhe enviar novas versoes do jogo da forca 
ai vao algumas "recomendaqoes" de variantes exis— 
tentes no. "mercado", 

1 - No livro do nosso pai (sSo os filhos falan 
do...) com o t i tulo M De um APPLE a sua vi- 
da" 


No interessante livro "30 Jogos para o TK- 
82, CP-200" de Delio Santos Lima 

No livro da Linda Hurley "Programagao para 
o TK-32/TK-83/TK-85/CP-200" daMcGraw Hill 
do Brasil 


Chega de indicagoes, nao e Alvaro? 





X retiramos o seguinte a respeito de um certo jo 
go: 


"Um antigo jogo infantil chamado "PEDRA, 
XESOURA E PAPEL" e jogado por duas criangas da se¬ 
guinte maneira: os dedos indicador e medio afasta- 
dos sao tesoura, a mao toda com dedos juntos e pa- 
pel e um punho e uma pedra. 

Ambos os jogadores apresentam ao mesmo tetn 
po tesoura, papel ou pedra. 

Pedra vence tesoura porque uma pedra pode 
"cegar" a tesoura. 

Tesoura vence papel porque corta o papel. 

Papel vence pedra porque uma pedra pode 
ser embrulhada com o papel. 

Se as duas crian^as mostrarem a mesma coi- 
sa ha um empate. 

Suponha que conta-se um ponto por vitoria 
zero para um empate e menos um ponto por uma derro— 
t a. 

Apresente a matriz dos ganhos e determine 
as estrategias otiraas e o valor do jogo. 

fi evidente que o nosso intuito aqui nao e 
desenvolver a teoria dos jogos de soma zero 


porem 
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simplesmente apresentar una versao simplificada do 
jogo onde o seu oponente e o TK-85' que escolhe alea 
toriamente pedra, tesoura ou papel (linha 120 do 
programa). 

Voce escolhe a sua "indicagao" e com a ins 
trugao de nuraero de linha 170 verifica-se se voce 
ganhou ou perdeu. 

Quern ganha recebe um ponto e vai se acumu- 
lando o resultado e para cada partida "imprime-se" 
um relatorio ate aquela ultima partida. 

Voce para quando quiser, porem uma boa e 
dizer para-se quando o primeiro (voce ou o TK-85) 
atingir 13 vitorias. 

Note que em caso de empate (linha 160) nao 
se acumula nenhum ponto pois desvia-se para a li¬ 
nha 210. 

Mas ait esta o programinha e uma posslvel 
saida. Divirta-se com ele... 


10 RAND 

SO DIM N$ '3,7* 

30 LET N$ li) ="PEDRA" 

40 L£T N$ (2 1 = ‘‘TES0URA" 

50 LET N$ C3 - i s'-pfiPEL" 

60 LET P=0 
70 LET 0=0 

SO PRINT AT 1j Oi “NAG ESOUECA * 
EU " "HUMANOIDE" " QUE UOCE DEUE E 
HTRSR COM 3=1,2 0U '3” 

30 R R U5 c 100 
100 INPUT R 

no :_ = 

120 wE” PaIMT tRND*3J+1 
125 PRINT RT 7,3;"CONTflGEM ATc 
RGORfl ";P 

130 PRINT RT 8.3. ' UOCE",N*'fi> 
140 PRINT RT IS.iN'EU *TK-35" 

$ (RJ 


150 PRINT RT 13,4: 

160 IF A==P THEN GOTO 210 _ 

170 IF R = 1 AND P =£ OR *=2 AND - 
-3 Qp p =3 RNC ’R=1 THEN GOTO 23u 
~180 PRINT "£U*Tr--3S UENCI" 

130 LE' f ‘ C=C + 1 


=00 got : 50 

210 PRINT NE5iA 


EMPRTOU” 
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220 GOTC 60 

230 PRINT "UOCE NflO E DE NRDR M 
ICRINHO" 

240 LET p =R+1 
250 GOTO 30 


Um possivel inicio do seu jogo pode ser: 


NflO ESOUECA SELf •'HUMRNOIDE" GUE 
UOCE DEUE ENTRAP COM fi=l,2 OU 3 


CONTfiGEM RTE RGORR:0 
UOCE TE50URR 


CONTfiGEM RTE RGORR:0 
EU*TK-35 PRPEL 


UOCE NRO E DE NRDR MICRINHO 


0.1. No livro "BASIC sem segredos" de V. Mirshawka 
aparece o programa para o jogo do "Morra" (Exemplo 
4.28) que ten mais ou menos a filosofia do jogo "PE 
DRA, TESOURA E PAPEL". 




Como ja vimos nos programas anteriores "0 
CUBO", "FAMtLIA DE RETXNGULOS", "A FAMlLIA DOS RE- 
DONDOS", "DIAGONAL", "MEXENDO-SE", etc. 0 TK-85 ten 
uma capacidade de fazer graficos com um detalhamen- 
to melhor do que os graficos obtidos usando apenas 
slmbolos graficos especiais. 

Insistindo um pouco mais e justo destacar 
que para esta finalidade usa-se o comando PLOT com 
o qual se obtem um pequeno quadrado preto (pixel) 
que tem um tamanho exatamente igual a um quarto do 
tamanho de um simbolo grafico. 

Na Figura 1 estao indicadas as coordenadas 
para os elementos de desenho. 

Os elementos de desenho como todos os ou- 
tros caracteres sao representados nas 22 linhas da 
tela. 

Como os pixels tem largura igual a metade 
da largura da linha, pode-se ter 44 elementos desde 
o comeqo ate o fim da tela numerados de 0 ate 43. 

Por outro lado como temos 32 colunas e no- 
vamente cada pixel ocupa a metade de uma coluna ter 
se-a em cada Linha 64 pixels numerados de 0 a 63. 
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Ordenada (y) do 
elemento de imagem 


Este e o elemen 
to de imagera 
(25,30) 


10 20 30 40 50 60 


Abscissa (x) 
do elemento 
de imagem 


Figura 1 

Na Figura 1 temos o pixel que se obtem com 
PLOT 25,30. 

a) Inicialmente vamos obter uma reta inclinada ou 
vertical (alias ja fizemos algo parecido no pro- 
grama "MEXENDO-SE"...) 


IS PRINT “ENTRE COM fl RBSCXOPP 

(X) * DO PRIME IRQ FONTS" 

28 INPUT XI 

30 PRINT " E-MTRE COM fl ORDENhDh 

(Y) PRIMEIRQ PONTO" 

4-0 INPUT Y1 , or „„ 0(¥ 

|S0 PRINT "ENTRE COM RBSuIooR >X 
X)!D0 SEGUNDO PONTO" 

60 INPUT X£ 

7© PRINT "ENTRE COM fl ORDENfiDP 
(Y) SEGUNDO PONTO" 

30 INPUT YS 
90 CLS 

100 LET Ps-1 

110 IF X1 < X 2 THEN LET P = -P 
120 IF X1=X2 THEN GOTO 130 
130 FOP. X=X1 TO X2 STEP P 
14.0 LET M = CY2-Y1) / t X2 -X1) 

150 PLOT X,X*M+Y1-X1*M 
1S0 NEXT X 
170 STOP 

130 IF Y1<Y2 THEN GOTO 220 
198 LET T=Y2 
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208 L ET Y 2 = Y 1 
218 LET Y1=T 
228 FOR X = Y1 T G Y 2 
238 PLOT X1.Y1 
248 LET Y 1 s'Y 1 + 1 
250 NEXT X 
268 STOP 


Sera que voce e capaz de obter as seguin 
tes saxdas? 



Mas que tal algumas explicagoes para faci- 
litar isto? 

Sempre bem vindas!!! Ja sabia disso... 1 

As coordenadas do primeiro ponto sao (XI, 
Yl) e as coordenadas do segundo ponto sao (X2,Y2). 

A equagao de uma reta pode ser do tipo: 

y = mx + n -•> intercepto 

^—«*coef iciente angular 


onde m 



*i 


mx 


1 


Um problems surge quando se usa a expres- 
sao do coeficiente angular. 
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Caso Xj - Xj seja igual a zero (0) tem-se 
uma reta perpendicular ao eixo Ox e a divisao de 
y 2 - y l P or x 2 - X 1 ® imposslvel pois x 2 ~ x | = 0- 

£ nas linhas 120, 180 a 260 que cuida-se 
desse caso especial e particular. 

OUTROS DETALERS 

1) Linhas 10-80 - Entra-se com os pontos (x^,y^) 

e (x 2 »y 2 ) 

2) Linha 90 - Limpa-se a tela pois o nosso negocio 
e tragar a reta na tela toda, se posslvel... 

3) Linha 100 - Ai atribue-se a variavel P (varia- 
vel passo) o valor -1 e que servira para impor o 
sentido correto ao tragado. 

4) Linha 110 - Caso se tenha x^< x 2 entao ter-se- 
a P - -P. Desta forma se a abscissa do 29 pon- 
to e menor que a abscissa do 19 ponto tem-se P 
negativo e caso contrario e positivo. 

5) Linha 120 - E al que se verifies o caso especial 
de se ter x^ = x 2 e transfere-se neste caso o 
controle para a linha 180. 

6) Linhas 130-160 - Tem-se urn lago FOR-NEXT com o 
qual se desenha a reta. 

Nao esquega que o passo (STEP) pode ser positi¬ 
vo se x^< x 2 e negativo se x^> x 2 . 

A inclinagao ou seja o coeficiente angular m e 
calculado na linha 140 e na realidade este ealeu 
lo poderia e deveria ter sido feito antes do la- 
go FOR-NEXT. 

As coordenadas a serein "plotadas" estao especifjL 
cadas na linha 150. 


139 


Nao esquega que X e a abscissa e X*M+Y1-X1*M e 
a ordenada. 


7) Linhas 180-260 - Caso a reta seja perpendicular 
ao eixo Ox, a instrugao 180 determina se a orde¬ 
nada do 19 ponto e menor que a ordenada do 29 
ponto. 

Caso essa condigao nao seja verificada entao os 
valores Y1 e Y2 sao permutados e para isto se 
usa a variavel temporaria ou auxiliar T (linha 
190). 


De 230 a 250, com o auxilio do comando PLOT na 
linha 240 ativam-se os pixeis que representam a 
reta. XI e constante pois como ja foi dito, tern 
se uma reta perpendicular ao eixo Ox e as ordena 
das toman todos os valores entre Y1 e Y2. 


b) 0 programs que vem a seguir permite desenhar uma 
circunferencia de circulo com urn raio dado e com 
centro no ponto (X,Y). 


0 programs desenha a circunferencia, apaga a mes 
ma e depois volta a desenhar ficando em um"LOOP" 
sen fim dai para frente... 


Ai esta o "programinha" e a visao de uma 
posslvel circunferencia: 


10 PRINT ENTRE COM A ABSCISSA 
iX) DO CENTRO" 

20 INPUT X 

30 PRINT "ENTRE COM A ORDENADA 
CV) DO CENTRO" 

4.0 INPUT Y 

50 PRINT "ENTRE COM 0 RAID (R) 
DA CIRCUNFERENCIA" 

50 INPUT R 
^0 CLS 

60 FOR K =0 TO 96 
90 PLOT X+R*5IN (K/4.8*PI> ,Y+R* 
COS (K/4.8*PI) 

100 NEXT K 
105 COPY 
110 GOTO 70 
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comentArios 

Linha 80 - A instruqao FOR K ■ 0 TO 96 faz nesse 
programa com que a nossa circunferencia de circulo 
tenha um maximo de 96 pontos. 

Quanto maior for o numero apos o "TO" na 
linha 80 ter-se-a mais pontos da circunferencia. 

Quanto maior for esse numero, mais demora- 
ra o seu TK-85 para desenhar a circunferencia. 

Observe perspicaz leitor(leitora) que em 
cada volta o K muda de valor, com o que mudam os va 
lores do seno e do cosseno definindo novos valores 
dentro do comando PLOT. 

Nao esqueija tambem que se por acaso tiver- 
mos um valor do tipo PLOT 17.1, 28.3 o TK-85 enten- 
de o comando PLOT como sendo PLOT 17,28 e com isto 
a sua circunferencia nao se parece exatamente com 
aquela bem continue que voce obtem com o seu compas 
so. . . 

UM "TRABALHINHO" BEM RSPIDO PARA VOCE SORTUDO(A) 
CLIENTE 

Nao vale charaar-me de chato "catalitico". 

Explica^aozlnha "adicional". 

Chato catalitico e aquele que age pela aqao 
de presenqa, emitindo ondas de particulas impondera 
veis, que nenhum micro a nao ser o proprio(a) pro- 
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prietario(a) do mesmo e vftima nesse caso, pode cap 
tar. 

Mas no fundo o chato catalitico e bon- 

zinho... 

1) Elabore um programa com o qual se possa 

TTx 

desenhar a curva y = tg e depois apague a raes- 

ma, desenhe, apague, desenhe, apague... 

SUGESTAO: 

Comandos fundamentals do programa sao: 

PLOT X,43*TAN (X*PI/4/63) 

UNPLOT X,4 3*TAN(X*PI/4/63) 

Pense onde deve inserir os mesmos e nao 
esquega que o elemento "plotado" na tela pode ser 
removido da mesma com o comando cuja palavra chave 
e UNPLOT. 

2) Obtenha um programa que 
nhar, conforme se queira a senoide, 
a metade de uma parabola nao usando 
mas sim a PRINT AT. 

SUGESTAO: 

Veja cada caso e note que talvez a instru- 
qao fundamental seja: 

a) PRINT AT 10*(1-SIN(X*PI*2/31)),X; "■" 

b) PRINT AT 10* (l-COS(X*PI*2/31)),X; " |" 

c) PRINT AT 10*(2-SQR(X/8)),X; " ■" 

Caso voce queira mais alguma "dica" para 
montar o programa todo, de uma olhadinha antecipada 


permita dese- 
a cossenoide e 
a instrugao PLOT 
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nos programas "FAZENDO A CABE^A" e "GRXFICOS SOFIS- 
TICADOS". 

Va, tem perroissao para isto, alias esta 
'ilhadinha" nao e tao pecarainosa ou proibida como 
aquela espiadinha pela fechadura... 



Vatnos agora usar as fungoes seno e cosseno 
para obter 7 (sete hein Sacha!) dos mais interes- 
santes graficos com o auxilio do seu TK-85. 

Na Tabcla 1 estao indicados os codigos com 
os quais se chama cada tipo de representagao, 



Tabela 1 


Ai esta o "super-programinha": 


10 CLS 

15 PRINT "ENTRE COM UM NUMERO 
INTEIRO ENTRE 1 E 7" 

20 INPUT N 

30 IF N <1 OR N >7 THEN PRINT "N 

RO BRINOUE COMIGO *’ “ HUMRNO IDE. 

40 IF N <1 OR N > 7 THEM GOTO 20 
45 CLS 

50 GDSUB 100 $N 
52 FOR Z=1 TO 999 
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55 NEXT Z 

6G PRINT PiT 20.0."UOCE O'UEP CJ 
TRR REPRESENTSCfiO io/N'i ?” 

: f 5 I” INKEy i=” THEN GOTO 65 
70 IF INKEY$ = " 3" THEN GOTO 10 
5 0 ST 0 P 


N 


100 REM Hi Pi I ft QUfiL 
110 FOR K=1 TO 30 
120 LET R =PI*K/40 
130 PRINT PIT 9*005 (fi) +11 
(fit+1S;"B” 

14-0 NEXT K 
150 RETURN 
200 FOR K=1 TO 320 
210 LET fi =pI*K /40 



220 LET 3= (3S0-M '320 
_230 PLOT (20*003 (fit+29),(19* 
SIN (H) +19) + B 


24-0 NEXT K 


250 RETURN 
300 FOR U = 1 TO 2 
310 FOR 1=1 Tu 350 
32S Ir U=i THEN LET fi=I 
330 IF U =2 THEN LET ft=360-I 
34-0 LET 8= l 360-Pi) '360 
350 LET T =PI*fi/4-5 
360 IF U = 1 THEN PLOT (21*003 (T 
) +29) *B ,, (19*5IN t.T) +19 t *B 
370 IF U=2 THEN UNPLOT (21*005 
1 T) +29) *B, (19#SIN (T) +19) 

330 NEXT I 
330 NEXT / 

395 RETURN 

400 FOR K =2 TO 120 

410 LET fi =K*PI/30 

420 PLOT K/2.SIN (fi)*19+21 

430 NEXT K 

440 RETURN 

500 FOR 0=1 TO 2 

310 FOR fi =2 TO 120 

520 IF 0=1 THEN LET T=R*PI/40 

530 IF 0=2 THEN LET T = - fi * PI >•' 4 0 

540 PLOT fi./2,SIN (T) *19 + 19 

550 NEXT fi 

560 NEXT 0 

570 RETURN 

600 FOR K=2 TO 120 

BIG LET fi=K*PI/60 

620 PLOT K/2..SIN (fi) +19 + 19 

630 PLOT K/£,CDS .fi +19+19 

640 NEXT K 

650 RETURN 

700 DIM 0(4) 

710 FOR K=1 TO 3 

720 FOR fl=i TO 120 

730 LET C(1)=SIN (fi*PI/60)*20+2 


740 LET 0(2)=005 (fi*PI/60)+20+2 

0 


750 LET 0(3) =4-0-0: 1 • 

760 LET 0(4) =40-0 .2' 

770 LET IsK-INT )* •*)*4+1 
73G LET JsK+3-IMT ( •* +2 <• 4. +4 
790 UNPLOT fl/2.C(I) 

300 PLOT ft/2,CfJ) 

310 NEXT fi 
320 NEXT K 
330 RETURN 
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Se voce teclou tudo direitinho tern direito 
a ver as seguintes representagoes: 
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Figura 1 

Para se obter o desenho indicado na Figura 

1 seguiremos as seguintes etapas: 

a) urn quadrado hachuriado ("alias" e um bom momento 
para uma pequena lamentaqao - o que tern de gen- 
te "quadrada" supera de longe aqueles que tern o 
rosto quadrado nao acha?); 

b) olho esquerdo; 

c) olho direito; 

d) o nariz; 

e) a orelha esquerda; 

£) a orelha direita; 


g) a boca 
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Para executar esse programa vamos usar fun 
damentalinente o comando PRINT AT, 

0 ,x. — Nao es quega que para desenhar com oPRINT AT 
o seu TK-S5 descreve as linhas de ciraa para baixo 
e as colunas da esquerda como indicado na Figura 2. 



Figura 2 

Assim com o PRINT AT 20,29 ; plota-se 

o quadradinho "preto” na intersecgSo da Unha 20 com 

a coluna 29 (veja a Figura 2). 

"DO NOT FORGET" que o reticulado da Figura 

2 tern linhas nuneradas de 0 ate 21 e colunas de 0 

ate 31. 

Vamos apresentar o programa todo e em se 
guida iremos comenta-lo nos sens diversos trechos 
sugerindo os valores que devem set atribuldos as va 
riaveis . 

comentArios 

a) Linhas 10-60 permitem que se desenhe o quadrado 
Para fazer urn teste entre com 


Xl = 4, X2-14, Tl“6» Y2-16 e 
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b) Linhas 70-120 permitem obter o olho esquerdo. 
Atribua agora os seguintes valores: 


Xl = 6, X2 = 7, Yl = 8, Y2 = 9 

10 INPUT XI 
20 INPUT X2 
30 INPUT :-l 
40 INPUT -2 
50 INP j" r 5$ 

50 GOSUB 1000 
70 INPUT XI 
30 INPUT X2 
90 INPUT Y1 
100 INPUT Y2 
110 LET G$ = “ 

120 GOSUE 1000 
130 INPUT XI 
140 INPUT X2 
150 GOSUB 1000 
150 INPUT XI 
170 INPUT Y! 

1S0 LET X2=X1 
190 LET YSbYI 
200 GOSUB 1000 
210 INPUT Xi 
220 LET X2 = X1 
230 INPUT Y1 
240 INPUT Y2 
250 INPUT G$ 

260 GOSUB 1000. 

270 INPUT XI 
230 LET X2 ~X1 
232 INPUT VI 
234 INPUT Y2 
236 INPUT G$ 

290 GOSUB 1000 
300 INPUT XI 
310 INPUT X2 
320 INPUT Y1 
330 INPUT Y2 
340 LET G$ =" " 

350 GOSUB 1000 
3b0 STOP 

1000 FOR C=X1 TO X2 
1010 FOR L =Y1 TO Y2 
1020 PRINT PT L,C,G$ 

1030 NEXT L 
1040 NEXT 0 
1050 RETURN 


c) Linhas 130-150 permitem o olho direito porem pa 
ra isto e necessario ter Xl=ll, X2=12, 


Voce perplexo(a) leitor (leitora) ja notou que as 
variaveis Y1,Y2,G$ das linhas 90, 100 e 110 per- 
manecem ate aqui com o mesmo valor. 
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d) Linhas 160-200 contera as instrugoes que permitem 
obter o nariz bastando que agora se entre com 

XI=9 e Yl-11. 

e) Linhas 210-260 permitem obter uma "modica" ore- 
lha esquerda alias aqui voce deve usar um outro 
caractere grafico para ser o valor de G$ (linha 
250). 

Entre agora com os valores Xl = 3, Yl=8, Y2=9. 

f) Linhas 270-290 possibilitam a salda da orelha 
direita bastando para isto que se entre com XI = 
15, Y1 = 8, Y2 = 9. 

Note que voce pode entrar com outro G$ se quiser 
e neste caso ter uma orelha direita diferente da 
esquerda. 

g) Linhas 300-350 contem as instrugoes que permi¬ 
tem obter a linda "bocarra" e voce concordara 
que o que vera nao pode ser chamado de boquinha. 
Nao esquega de entrar com os seguintes valores: 

Xl = 6, X2 =12, Yl-13, Y2=14 


2) Faga com que aparega uma segunda cabega no lado 
da direita da tela. 

SUGESTAO: 

Caso voce tenha usado os valores recomendados au 
mente os valores de XI e X2 era todas as entra- 
das solicitadas (comando INPUT) de 14 e mantenha 
os raesnos valores de Y1 e Y2 que usou anterior- 
mente. 

3) Sera que voce poderia obter um programa que apa- 
gue a 1? cabega e depois a segunda e a seguir de 
senhe a 1? cabega e depois a segunda e se entre 
desta maneira era um "LOOP" sera fim... 

SUGESTAO: 

Aqui realmente convem escrever um novo programa 
ou pelo menos fazer muitas modificagoes vis to 
que riao sera muito conveniente o uso dos INPUT e 
sim dos LET. 

Sera que isto foi uma boa "dica"? 


ALGUMAS TAREFAS CRIATIVAS PARA VOCE DEDICADO(A) 

LEITOR(LEIT ORA) 

Note que as tarefas sao sequenciais ou em 

serie. 

1) Faga o olho esquerdo do programa "FAZENDO A CABE 
QA" piscar para voce. 

Ate que enfim voce manda e alguem pisca para vo 


ce. . 



25. "CRAPS" 



Nosso pai nos contou que quando ele era es 
tudante da Escola de Engenharia Mackenzie em ura lu- 
gar bastante estranho e era epoca e horario nem sem- 
pre bem definidos ocorreram rauitas contendas entre 
contemporaneos seus de Faculdade era utn jogo cbamado 
"craps" e numa dessas partidas urn jogador que nao 
tinha mais dinheiro, apostou as proprias calqas e 
como resultado foi bem embaraqoso ele chegar era ca- 
sa, . . 

Mas como e esse jogo? 

Sao lanqados dois dados e as regras sao as 
seguintes: 

1) se ocorrer a soma de pontos 7 ou 11 na primeira 
tentativa voce e vencedor; 

2) se ocorrer a soma de pontos 2, 3 ou 12 na primei 
ra tentativa voce e o perdedor; 

3) qualquer outra soma de pontos que ocorra na 1? 
tentativa que nao seja 2, 3, 7, 11 ou 12 da direi 
to a prosseguir no jogo e ela passa a ser a sua 
meta ou o seu "marco". 

Voce ira lanqando os dados continuaraente 
ate que atinja a sua meta (por exemplo tirando no 
vamente a soma de pontos 9 que ocorreu no 19 lanqa 
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mento). Caso isto ocotra voce sera declarado vence- 
dor. 

Se contudo sair a soma de pontos 7 antes 
que voce atinja a soma almejada voce perdera. 

Este e realmente urn jogo em homenagem ao 
nosso irmao cagula Sacha que adora o numero 7 que 
alias e a "forga" positiva e depois negativa neste 


Bern vamos ao jogo do "CRAPS" 


SRND*S)+INT tRND* 


5 RRND 
10 CLS 

£0 G05UB 1000 

30 PRINT ” * + *$,.*.,***.*****CRflP5* 

40 GOSUB 1000 
45 LET J=0 - 

50 LET S=INT tRND*6)+ INT {RND* 
6 ) + 2 

60 LE T _ =j + l 
70 1“ J=1 THEN GOTO 130 
30 IF 5=U THEN GOTO 260 
90 IF 5=7 THEN GOTO 2S0 
95 PRINT 

108 PRINT “UOCE OBTEUE v ; S 
NT OS" 

110 PRINT 

l£0 GOTO 58 _ 

130 IF 5=7 OR 5=11 tmen GOTu 1/ 

0 

140 IF 5=2 OP 5=3 OR 5=12 THEN 
GOTO 190 
150 LET U=5 
160 GOTO 35 

170 PRINT "UOCE TEN MUITfi 50RTE 
E TIROL! CE 5 hID? " ; 5 . " PONTOS" 
180 GOTO 200 

190 PRINT "ME5SR UOCE NRO TEUE 
MUITR SORTE E pePDEU DE PRIOR PO 
15 TIROU 5;" PONTOS" 

200 PRINT 
210 PRINT 

£28 PRINT "UOCE GUER UMR NOUR " 
"PRRTIDfl"" ' S/N>?" 

230 INPUT P$ 

240 IF R$ ="5" THEN GOTO 5 
250 STOP 

260 PRINT "UOCE REPETIU fl SOMR 
DE PONTOS QUE OBTEUE NO PRIMEIRO 
LRNC-RMENTO . 1ST. E ■ ' J 5; " PONTOS 

E UENCEUUUUUUU.' 

270 GOTO 209 

280 PRINT "LRMENTRUELMENTE SflIU 
50MR DE PONTOS 7 RNTE3 QUE UOCE 
PUDESSE TIRRR R SOMR “]lU," E UO 
CE PERDEU" 

290 GOTO 200 
1080 FOR K = 1 TO 32 
1010 PRINT "P", 

1020 NEXT K 
1030 RETURN 
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Algune comentarioe: 

1) Linha 60 - Este e um truque que permite desviar 
para 130 quando e a 1$ jogada ou seja o 19 langa 
mento dos dados e tem-se J*l. 

Para todas as outras situagoes tem-se J >1 evai 
se para a linha 80. 

2) Linha 150 - E nessa instrugao que se guarda a so 
ma de pontos se o' jogo nao termina no 19 langa- 
mento. 

Caso o seu jogo de "CRAPS" seja a dinheiro espe- 
ro que saia bastante uma mensagem do tipo: 


H # *** H4CRRpS* * HH ## 


UOCE OBTEUE 8 ’ P GNT0S 


UOCE REPETIU R SOMR DE PONTOS OU 
E OBTEUE NO PRIMEIRO LRNCRMENTO , 
ISTO E:3 PONTOS E UENCEUUUUUUU. 


UOCE OUER UMR NOUR• “PARTIDR" . S /N 
) ? 


Se voce caro(a) lei tor(leitora) resolver 
entretanto jogar muito tempo o jogo do "CRAPS" sai- 
ba que tern uma probabi1idade de perder um "pouqui- 
nho" maior do que a de ganhar da banca. 

Caso tambem queira uma justificativa anali 
tica consulte o classico livro de Thomas L.Saaty - 
"Mathematical Methods of Operations Research"publi- 
cado pela Me Graw Hill em 1959. Va direto a pagina 
240 do livro e fique desapontado pois entender o 
que esta la exposto nao e tao facil assim... 

Uma outra forma de entender isto e ser aJu 
no nosso no curso de Estatistica da FEFAAP ou da Es 
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cola de Engenharia Mackenzie onde no curso de Proba 
bilidades resolvemos o exercicio 10 da pagina 265 
do livro "Exercicios de Probabilidades e Estatisti 
ca para Engenharia" de V.Mirshawka de titulo "o jo- 
go do craps"... 

"TAREFINHA" PARA VOCE PACIENTE LEITOR(LEITORA) 

QUE JX ADQUIRIU A NACIONALIDADE "TKAINA" 

Que tal voce modificar o programa apresen- 
tado de tal forma que se exiba na tela era forma gr 
fica a soma de pontos que voce obtem em cada dado? 

Ai vai a sugestao para 4 pontos 



0 .x. - £ evidente que nos nao podemos deixar de re- 
coraendar outra vez a revista Microhobby que sob a 
eficiente e didatica dire$ao de Angel D.Zaccaro Co- 
nesa e Alvaro A.L. Domingues apresenta as grandes 
dicas e novidades principalmente para o TK-85. 

Dentro dessa linha e muito interessante o 
"jogo de crepe" (e, em portugues "craps" e crepe) 
apresentado aura programs pelo leitor Luiz G.C.Antu- 
nes e que apareceu no N? 3. 


toll 



Na realidade, entendia-se ate alguns anos 
corao asteroide, cada um dos pequenos planetas visi- 
veis somente com meios oticos poderosos e que circu 
lam entre as orbitas de Marte e Jupiter. 

E ainda entende-se assim. 

Porem a fantasia nao tern limites,assim co- 
mo com o pensamento podemos chegar onde quisermos. 

A astronautics que comegou com o russo 
Tsiolkovski, o americano Goddard, o frances Esnaul 
Pelterie e os alemaes Oberth e Langer esta se d 
senvolvendo, inclusive idevido aos computadores, de 
tal forma que parece que e "pensamento". 

Imagine assim, que voce esta no espaqo si- 
deral cercado de asteroides por todo lado. 

Caso voce, dentro da sua nave SACHA-TK 13, 
nao consiga desviar o rutno da mesma e bater nos pe- 
daqos de rocha que continuamente se despreendem dos 
asteroides tera um triste fim... 

Voce pode dirigir a sua nave SACHA-TK 13 
atraves do "vendaval" (tempestade) de pedaqos de as 
teroides usando o sistema de direqao secundario te 
cla ”5" para ir para a esquerda e tecla "8" para ir 
para a direita visto que o sistema de direqao prin¬ 
cipal comandado por um conjunto de computadores es- 


lfl> Irt 
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ta inutilizado devido ao choque quc ocorreu ha pou- 
co tempo da sua nave com um meteorito. 

Como se tudo isto nao fosse o suficiente 
para por a sua vida em risco, caso sobreviva a essa 
tempestade percebera que a SACHA-TK 13 esta perdida 
no espago e o que e pior ha uma esquadrilha de na¬ 
ves inimigas vindo na mesma diregao porem em senti- 
do oposto ao seu. 

Lamentavelmente apos algum tempo voce 
ira chocar-se com alguma destas naves e ira despe- 
dagar-se. . . 

Isto ocorrendo o programs lhe indicara 
quanto voce conseguiu permanecer vivo e tenha certe 
za que este merito sera inscrito na sua lapide, la 
no querido planeta Terra. 

Capriche pois para ganhar uma inscrigao 
honrosa "MORREU DEPOIS DE TER RE SISTIDO..." 

No programs usa-se a fungao SCROLL para 
mover os pedagos dos asteroides ou seja os meteori- 
tos e as naves, menos a sua SACHA-TK 13. 

Quando se move o que se estava exibindo 
na tela, a sua nave ira mover-se com o resto e e 
por isto que essa nova posigao da sua nave e apaga- 
da (veja a linha 180). 

0 movimento da SACHA-TK 13 pertence a vo¬ 
ce comandante (capita) e ela esta sempre na mesma 
linha da tela podendo ser deslocada apenas para a 
direita ou para a esquerda. 

As posigoes dos pedagos dos asteroides 
vindo contra voce sao armazenadas em A1, A2, A3, A4 
e A5 (linhas 130-170) sendo que A5 e a mais proxima 
de voce. 


Comparando-se a posigao A5 com a da sua 
nave o programs determine se voce se espatifou ou 
nao (linhas 220 e 300). 

Tenha vida longa capita (comandante), este 
e o nosso desejo... 

Ai vai o programs e uma possivel salda"ter 

minal” 


10 

LET = 

20 

LET N=0 

30 

LET Hl=0 

40 

LET P2=0 

50 

LET 93=0 

60 

LET 94=0 

65 

LET T = 1 

66 

let X=1H 

70 

LET R = INT (27- 

SO 

PRINT PT 21R 

35 

SCROLL 

90 

SCROLL 

100 

LET N=N+.l 

110 

IF N=70 THEN 1 

120 

IF N =74 THEN 1 

130 

LET 95=94 

140 

LET 94=93 

ISO 

LET 93=92 

160 

LET 92=91 

170 

LET 91=R 

130 

PRINT 9T 9 

19© 

PRINT 9T 11,X 

200 

LET E =95 

210 

IF M > =74 THEN 

220 

IF X > =E-2 9ND 

0 250 


7+RM05 


Tsi 


T 


225 IF INKEY$=“5“ THEN LET 
230 IF INKEV$ = "S' 1 THEN LET 


I GOT 
X = X - 
X = X + 


240 GOTO 70 

250 PRINT 9T 11,X-l, *'TRUNK , PL0N 
G , 5PLR5H.CRRSH” 

260 PRINT PT 0.0;"UQCE 50BREUIU 
EU fi "IN-I;" P055IUEIS COLISDES 
E DESPPRRECEU Nh DE NUMERO ";N 
270 STOP 

300 IF X > =E-T PND X < = E +T THEN G 
0T0 250 
310 GOTO 225 



160 


UGCE SOEREUIUELl A 76 
0LI50ES E DESPPRRECEU 
RO 77 


P0S5IUEIS C 
m DE NUME 


1 


m 

STRUNK,PLONS,SPLfiSH,CRASH 

mm 

mSm 

mm 

-mm 



Uraa das aplicagoes mais eletrizantes de gra 
ficos e da aleatoriza£ao voce encontrara nesse pro- 
grama "CRIANDO LABIRINTOS" ou seja caminhando entre 
valas e paredes. 

Neste programa gera-se um labirinto aleato 
rio, como por exemplo o mostrado na Figura 1, porem 
a densidade da parede (P) e das valas (V) ou seja 
das passagens pode ser escolhida pelo "tkaiano(a)". 



Figura 1 

Com o intuito de ter espago para entrar 
dentro do labirinto o programa alterna linhas de pa 
redes com linhas de valas. 
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As linhas de paredes sao pretas com algutis 
poucos espagos em branco colocados aleatoriamente e 
constituindo-se nas passagens. 

As linhas de valas sao brancas e quase com 
pletamente abertas com excegao de alguns pontos tarn 
bera aleatoriamente escolhidos nos quais sao coloca¬ 
dos se.paragoes por parede, 

Para impedir que alguem escape do limite 
das linhas dos muros ou seja das paredes tem-se uraa 
cerca de 19x23 espagos em torno de todo o labirinto. 

Uma abertura colocada na parte de cima per 

mite entrar no labirinto. 

Na parte de baixo do "quadro" esta marcada 
a saida e ai voce encontra um tesouro indicado com 
$ . 

Es te pr ograma lhe podera ser muito util 
pois caso voce esteja escrevendo para a secgao de 
divertimentos de algum jornal ou revista sera nenhu- 
ma dificuldade podera criar os mais incriveis labi- 
rintos e e o TK-85 que fara para voce todo o servi 
go. 

Nao ha necessidade de rachar a cuca, deixe 
por conta do TK-85... 


10 PRINT 
20 PRINT 


,"URLRS E PRRi 
”DENSIDRDE DE 


‘RREDE : 


30 INPUT P 
35 PRINT P 
40 PRINT " 


DENSIDRDE DE URLRS: 


50 INPUT U 
55 PRINT U 
70 LET fi$=CHR$ 123 
8© LET B$=CHR$ 0 
9© REM URM03 FRZER 
URDPO 

100 GQSUB 1300 
110 FOR K = 1 TO 3 
12© PRINT R$, 

130 FOR M-l TO 21 


□ TOPO DO 


140 LET R = INT (RM>*99)+1 
150 IF R <U THEN PRINT R$; 

160 IF NOT RiU THEN PRINT B$, 
170 NEXT H 
130 PRINT R$' 

190 PRINT R$; 

200 FOR Nsl TO 21 
210 LET B =INT (RND*99)+1 
220 IF NOT B<P THEN PRINT B$, 
230 IF 5 •;P THEN PRINT R$; 

240 NEXT N 
250 PRINT R$ 

260 NEXT K 
270 PRINT fi$; 

230 FOR E = 1 TO 21 
290 PRINT B$, 

300 NEXT E 
305 PRINT R$ 

310 LET B$ ="$" 

320 G0SU5 1300 

330 PRINT "UOCE SOSTOU DO SEU L 
RBIRINTO iS/N'i *>" 

34S INPUT R$ 

350 IF R$ = " 3" THEN CLS 
360 IF R$ = “S" THEN GOTO 10 
370 1 STOP 
330 PRINT R$ 

1300 PRINT R$; 

1310 LET R =INT t20#RNDi+l 
1320 FOR 5=1 TO 21 
1330 IF NOT S=R THEN PRINT R$.l 
1340 IF S=R THEN *RINT B$, 

1350 NEXT 5 
1360 PRINT R$ 

1370 RETURN 


Rodando o programa voce pode obter o labi¬ 
rinto abaixo: 



Note como esse labirinto e diferente daque 
le da Figura 1. 
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Comentarios: 

Linha 30 - Pode-se entrar ai com ura numero de la 

100. Experimente P = 80. 

Linha 50 - Pode^se entrar com qualquer numero de 1 

a 100. Experimente V = 13 

Linhas 70 e 80 - De uma olhada na O.X. do programa 
15 "0 CfiU EM UMA CERTA NOITE NA CIDADE" 
para lembrar o que significa CHR$ 128 e 
CHR$ 0 

Linha 110 - Com este "LOOP" gera-se 8 pares de li¬ 
nhas de valas e paredes 

Linha 120 - A impressao do A$ e para formar o.- qua- 
dro ou seja a cerca das linhas de valas, 

Linhas 130-170 - £ aqui realmente que se criam as 
valas. 

Linha 180 - £ necessaria a impressao de A$ para se 
ter o lado da direita do quadro para as 
linhas de valas e assim impedir que al- 
guera saia pela direita. 

Linha 190 - Com esta instruqao obtem-se o lado da 
esquerda do "quadro" para as linhas de 
paredes. 

Linha 250 - Com esta instruqao obtem-se o lado da 
direita do quadro para as linhas de pa¬ 
redes. 

Linhas 280-300 - Com estas instru^oes gera-se a ul¬ 
tima vala que e toda livre ou seja uma 
linha em branco. 

Linha 305 - Obtem-se o lado da direita da ultima li 
nha branca. 

Linha 310 - Esta instrugao e para imprimir um "te- 
souro" na saida ou seja na ultima li¬ 
nha. A posiqao do "tesouro" e escolhida 
aleatoriamente (veja a linha 1310). 

0.1. - No livro do Delio Santos Lima "30 Jogos para 

o TK-82 e CP-200" aparecem duas versoes muito inte- 

ressantes do programa "CRIANDO LABIRINTOS". 



Sera que alguem nao sabe o que e o "J0G0 
DA VELHA" ou como aparece nos textos em ingles o jo 
go do "TIC-TAC-TOE"? 

Como se sabe,-este jogo termzna sempre em- 
patado , desde que netihum dos antagonistas cometa al 
gum erro. 

A versao ora apresentada e curta e bem 
simples e olhando o programa ja da para entender to 
da a logica. 

Nao esqueqa entretanto que este programa 
permite um jogo a dois... 


10 LET n$="I" 

20 LET B$ = ‘'2" 

30 LET C$ = “3" 

40 LET D$ = “4” 

50 ;_ET £$="5" 
b0 LET F$ = “ 6 *' 

70 LET G$="7" 

30 LET *-*$ = “8" 

90 LET I$="9" 
100 FOR Nsl TH q 


110 PRINT 'JOGO 
120 PRINT I 

i30 print wmm 

140 PRINT 0 $: '! 1 
150 PRINT M 
160 PRINT G$.i “ 1 
170 PRINT 


^^E S 1 
’; H$, ” 


130 IF N =2*INT (N/2) THEN GOTO 
230 
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190 PRINT AGORA JGGA 0 PRIME IP 
0 JOGADOR COM X" 

20O INPUT C 
210 LET P$= ! X 1 ' 

220 GOTO 27.0 
230 PRINT 

24-0 PRINT “AGORA JOGS 0 SEGUN0O 
JOGADOR COM u" 

250 INP'-T C 

250 LE^ —$ s “ Q * 1 

270 LET _•$ = 5TR$ Ci 

2S0 IF J$ =A $ AND 'NOT A$=P$ THEN 

LET fiJrPj 

290 IF J$=B$ AND NG~ B$=P$ THEN 
LET B $ = P $, 

'300 IF J$=C$ AND NOT C$=P$ THEN 
LET C$=P$ 

310 IF J$ =D$ AND NOT D$=P$ THEN 
LET D $ = p $ 

320 IF U $ =ES AND NO' r E$=P$ THEN 
LET E$=P$ 

330 IF J $ =F $ AND NOT F$=P$ THEN 
LET F$=P$ 

IF 3$=G,$ AND NOT G$=P$ THEN 
LcT G$=P$ 

350 IF J $ = H $ AN! NOT H$=P$ THEN 
LET H$=P$ 

360 IF J$ = I$ AND NOT I$=P$ THEN 
«-FT I$=P$ 

. 370 Ir A $ =8$ AND BS=C$ THEN. GOT 
1 J Abb 


_ 330 I- 
0 460 

P $ = D $ 

A ND 

D$=G$ 

THEN 

GOT 

390 IF 
0 430 

A$=E$ 

AND 

E $ =1$ 

THEN 

GOT 

400 IF 
0 430 

b$=e$ 

AND 

E $ =H$ 

THEN 

GOT 

410 IF 
0 480 

C$=F$ 

AND 

F $ = I $ 

THEN 

GOT 

423 IF 
0 430 

d$=e$ 

ANC 

E $ =F$ 

THEN 

G 0T 

_430 IF 
0 430 

G $ =E $ 

AND 

m 

w 

II 

o 

THEN 

GOT 

440 IF 
U 430 

g$=h$ 

AND 

H$=I$ 

THEN 

-~L' :“ 7 * 


4-50 CL'S 
4-60 NEXT N 
4-65 CLS 
4-70 GOTO 500 
4.30 CLS 


435 PRINT A" - ,-D PS 
490 GOTO 510 


UENCEU 1 


500 PRINT "EMPATOU" 

510 PRINT ”UOCE GUER UM OUTRO 
OGO CS/Ni •?" 


; O 


520 INPUT R$ 

530 IF R$=“S" THEN GOTO 5 
540 STOP 
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Ao iniciar-se o jogo aparecera na tela 
seguinte imagem: 



AGORA UOGA 0 PRIMEIRO JOGADOR CO 

M X 


a 


e aquele jogador que e o primeiro joga escolhendo 
uma das nove posi 5 oes iniciais livres imprimindo-se 
na escolhida urn "X" (veja as linhas 200 e 210), 

0 segundo jogador deve entao escolher uma 
das oito posisoes restantes (excluida aquela que 
foi escolhida pelo primeiro jogador) e ai e impres- 
so um "0" (veja as linhas 250 e 260), 

Depois de um certo tempo o jogo pode ter 
o aspecto abaixo: 

..OGO DA UELMP 



M X 


No desenvolvimento do jogo, voce nao pode 
se enganar e colocar um "X" onde ja existe um "0"ou 
vice-versa pois com o programa apresetitado o seu 
TK-85 simplesmente recebera a entrada, fara as ver’ 
fica^oes (linhas 270 ate 360) e como esta casela j 
esta ocupada nao imprimira a sua entrada ou escolha 
sobre uma ja adotada e dara o que e pior, a vez pa¬ 
ra o oponente... 


■Hi 10) 
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0.1. Para que voce respeitado(a) leitor(leitora) 
nao classifique o autor de chato catequetieo (e aque 
le que procura nos converter em alguma coisa, por 
exemplo ser torcedor do Corinthians, largar de fu- 
mar, seguir a seita do reverendo Moon, comprar to- 
dos os seus livros sobre uma certa 1inguagem,etc...) 
al vao mais duas indicagoes de concorrentes "muy" 
amigos e que tem livrinhos "uootiimos", 

1) Voce encontra uma interessante versao do ”0 JOGO 
DA VELHA" em que se enfrenta o micro no livro do 
Delio Santos Lima "30 Jogos para o TK-82 e o 
CP-200". 

2) Leo Batista e Gerson M.Katakura no seu "Elemen- 
tos de Programaqao em BASIC" apresentam urn pro- 
grama bem rompleto para o ”0 JOGO DA VELHA" no 
qual inclusive se faz urn sorteio inicial de quern 
deve comeqar. 



A memoria e como rede que se puxa fora do 


rio ou do mar carregada de peixes, porem muitas cen 
tenas de milhares de litros de agua ja passaram por 
ela sem nada deixar. 

A memoria designa a capacidade de fixar, 
reter, evocar e reconhecer acontecimentos passados. 

Ha quem diga que memoria e referente ao re 
conhecimento do passado e dessa maneira a fixagao e 
a retengao seriam atos comuns a qualquer processo 
cognoscitivo , enquanto a evocagao e o reconhecimen¬ 
to pertenceriam tambem ao desempenho da imaginagao. 

Na realidade a memoria e o unico paraiso 
do qual nao podemos ser repelidos. 

Como e bom ter sempre na memoria os amigos. 

A memoria e a fiel reserva do intelecto e 
ao mesmo tempo salutar freio da fantasia. 

Treinemos todos a nossa memoria e para tal 
nada melhor que o programa ”0 JOGO DA MEMORIA". 

"0 JOGO DA MEMGRIA" e uma variante noTK-85 
do conhecido jogo de cartas. 

Deve ser jogado a dois e e uma sugestao que 
o nosso pai mandou dar a nossa primeira e excelente 
professora de computagao Josefa Alvarez e ao profes 
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sor Raimundo para as suas boras de lazer. 

0 nosso pai diz "os jovens tem o dotn de es 
quecer assim como os velhos tem o de recordar . 

Voces dois sao muito jovens e usein a memo- 
ria como sendo o melhor espelho para reconhecer e 
corrigir os proprios defeitos. 

Bern mas como e o programa JOGO DA MEMO - 

RIA"? 

24 pares de letras sao misturadas e coloca 
das aleatoriamente es urn reticulado 8x6 com posi- 
qoes de entradas numeradas como mostrado abaixo: 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

37 

48 


Tabela 1 

A escolha de uma letra "escondida"para ser 
aberta ou seja da carta eletronica e feita entran - 
do com urn numero de 1 ate 48 (veja as linhas 150 a 
240 do programa). 

Evidentemente em cada etapa do jogo sao es 
colhidas duas posiqoes e caso a segunda letra seja 
igual a primeira logo no pri.mei.ro lance equivale a 
dizer que voce e **rabudo(a)", digamos melhor sortu 
do(a)". 

As letras nas posiqoes escolhidas,caso nao 
sejam iguais, sao cobertas novamente apos urn certo 
tempo (veja a pausa da linha 280). 
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E obvio ululante que o jogo termina quando 
todos os vinte e quatro pares de letras tenham sido 
descobertos e pareados. 

Observe estimado(a) leitor(leitora) as le¬ 
tras que estao no seu "0 JOGO DA MEMORIA na linha 
30 do programa. 

Por oirtro lado tenha um pouco de pacien- 
cia, afobado(a) leitor(a), pois depois que voce aper 
tou o RUN e o NEWLINE nao e o seu programa que su- 
miu, mas e apenas o seu TK-85 "ruminando” cerca de 
1 minuto para gerar um "monte" de numeros aleato - 
rios para "guardar" as cartas digo letras nas diver 
sas posiqoes e preparar uma lmda saida para usted . 

Al esta o "lindao" digo o programao, curto 
mas eficiente... 


10 LET T=0 

20 LET 5 $ =" " . 

2 3 LET C$ = , ’RfiBBeCD0EEFFGGHHIiU 
J L L MM N WO OP FQGRR5 

60 FOR 1 = 1 TO 4.8 
70 LET R = I NT (RND*43J+1 
30 IF C$(RJ = " " THEN GOTO 70 
90 LET 

100 LET C$(R) = " “ 

HO NEXT I 

120 GOSUB 320 

130 PRINT RT 20.0." 


140 PRINT " . '' 

150 PRINT RT 20.0;"PRIMEIRh fcNT 

Dor,flo " ■ 

160'INPUT R 

170 IF R <1 OR R >43 THEN GOTO lb 

0 

130 PRINT R 

190 LET D$(R)=B$i.R) 

200 G05UB 320 

210 PRINT, RT 21,0"SEGUNDR ENTP 
ROR*" 7 " ' 

220 INPUT S ^ 

230 IF B<1 OR B >43 THEN GOTO 22 

0 

240 PRINT B 
250 LET 
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260 GOSUB 320 

270 IF B$(fi)=3$(B) THEN GOTO 39 


230 PRUSE 99 
290 LET 

300 LET D$(B)=D*(fn 
310 GOTO 120 


320 FOR K =0 TO 5 
330 FOR M =0 TO 7 


34-0 PRINT RT K*3 , M*3; D$ (K*8+M + l 


350 NEXT M 
360 NEXT K 
370 LET T =T +1 
330 RETURN 
390 IF D|05$ 
4-00 PRINT RT 
RHINRR EM ";T- 
4-10 PRINT RT 


THEN GOTO 120 
20,0;“C0N5EGUIU 
” ETfiPRS" 

21 , 0 ; " 


TE 


415 SLOW 
420 STOP 


Sabotando um pouco ou seja copiando os lu- 
gares e as letras consegul esta saida. 

c l p o i y - h 

R N 2 U N C- 0 J 

tcreuhtr 
JOSZHRFI 
PUG U 0 6 M X 

E 5 B L 0 C U X 


CONSEGUIU TERMINRR EM 162 ETRPflS 

Sera que voce pode bater o meu "record"? 
Tente bichao (com todo respeito...) ou ga- 
tinha (com toda admiragao . . . ) 
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Comentarios elucidativos complementares para o 

programa "0 JOGO DA MEMCRIA" 

Linha 20 - E em B$ que se guardara a sequencia sor- 
teada 

Linha 40 - A variavel STRING D$ tern um comprimento 
igual a 48 caracteres graficos "E3" 

Linha 90 - £ a importante instrugao para a opera;ao 
de concatenagao 

Linha 130 - Marque nessa instrugao pelo menos 19 es 
pagos em branco 

Linha 370 - 6 ai que se somam as suas tentativas 

voce descobrir quantos espagos 
necessita para uma boa limpeza 

£ mais que 16, como um ponto de partida. 


Linha 410 - Cabe a 
branc os 
final. 




Quern de criancinha nao brincou com um ca- 
leidoscopio ? 

Ah, voce nem sabe o que e caleidoscopio!! 

Entao la vai a defini^ao. 

Caleidoscopio ou calidoscopio e um apare- 
lho consistindo de um tubo opaco, com varios espe- 
lhos, dispostos de forma que pequenos objetos colo- 
ridos colocados no tubo formam ax, ao serem ligei- 
ramente movimentados desenhos variados. 

Como ja disse o professor e diretor do com 
plexo educacional Objetivo Joao Carlos di Genio, o 
computador e uma valiosa ferramente de ensino e ar¬ 
te simulando tanto experimentos de Fxsica e Qulmica 
como eventuais representaqoes graficas. 

'£ obvio que nao temos um conjunto de espe- 
lhos no TK-85 porem da para aceitar que um efeito 
semelhante ao de um caleidoscipio e o que obtemos 
ao exenitar este programs. 

Alias, para ser sincero o que iremos ver 
com os dois programinhas que vem a seguir e a forma 
gao de lindos quadros. 

O primeiro programa e o seguinte: 
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10 SLOW 
20 RAND 

30 LET X = INT (RNC*S4.« 

4-0 LET V = I NT (RND#*3) 

50 IF RND .33 THEN GOTO 150 
60 PLOT V,Y 
70 GOSUB 200 
30 PLOT X , 4-3- V 
90 GOSUB 200 
100 PLOT 33-X ,4-3- 
110 G 0 S U £; 100 
120'PLOT 53-x .v 
130 GOSUB 200 
14-0 GOTO 30 
1S0 UNPLOT v., 

160 UNPLO T > ,43- 
170 UNPLOT 63-x 
130 UNPLOT 53-* 4’- 
190 GOTO 30 


E o que voce vera atonito(a) leitor (leito 
ra) e algo semelhante ao que vein abaixo: 

“I ««,****., | « 

. * 1 * S i i * 

* * I * * * * t li 

.vl'-.-V' * 

■v.-* - ** 

■ * ■ i * . 

- * -V . - V- ■ » 

1 . J 1 ,« , * *, , * 

_ * * ■ * I t 

v f •.. .* 

vt I lit » 1 I rn 


0 segundo programinha tern mais "pinta" de 
"CALEIDOSCflPIO". 

Ai vai ele: 

10 PRINT PT 5,6:"CPlEIDOSCDPIO 

20 PRINT p~ S.0 Ri_IhENTE-'lE C 
OH UN NUMERO 00^ s , iHP ^E^PP OU 0 
OH UM CPRPCT£P£ gppfico P SUP .0 
^PDE C'fipp 0RIPR JM BON IT CEfEN 

00 INPuT Ga 
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35 INPUT R$ 

40 CLS 

50 FOR Z=1 TO 49S 
60 LET P=INT (PN0*13)+1 
70 LET B =INT (RN0*17) +1 
30 PRINT PT A , 8G $ 

90 PAUSE 33 

100 PRINT PT 22-P,BiG$ 

110 PPUSE 33 

120 PRINT PT A , 32-B:G$ 

130 PPUSE 33 

140 PRINT PT 22-P.32-B-G$ 
150 PAUSE 77 
160 LET C = INT (kND*7< +1 
170 LET D = INT (RND*15)+1 
130 PRINT PT C D ; R$ 

190 PPUSE 33 

200 PRINT PT 21-C> 0;R$ 

210 PPUSE 33 

220 PRINT PT C,3i-D;R$ 

230 PPUSE 33 

240 PRINT PT 21-C,31-D,R$ 
250 PPUSE 100 
260 LET E=INT (RNO+11)+1 
270 LET F =INT (RNDhIS) +1 
275 PRINT PT E,F;‘“-*" 

230 PAUSE 7 

290 PRINT AT 20-E.F;"*" 

300 PAUSE 7 

310 PRINT AT E , 38-F; " 

320 PAUSE 7 

330 PRINT AT 20-E,30-F;”*" 
340 PAUSE 7 

350 IF PHD>44 THEN GOTO 260 

360 NEXT Z 

370 PAUSE 399 

330 CL3 

398 RUN 


Depois de um certo tempo a visao na tela 
do aparelho de T.V. conectado ao TK—85 sera algo do 
t ipo: 
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O. I. — Come to{. a%s (nao pule, leia por favor as in¬ 
die agoes ) 

1) Text) urn lindo programs "CALEIDOSCdPIO" no livro 
da Linda Hurley "Programa^ao TK-82/XK-83/TK-85/ 
CP-200" publicado pela Me Graw Hill do Brasil. 

2) V ej a o lindo programa "SIMETRIKO" que saiu na Mi 
crohobby N9 11 para aumentar mais ainda o seu ca 
bedal de conhecimento sobre a "capac-idade criado 
ra" do TK-85. 

ft o obvio ululante que a revista mais indi 
cada no momento para um usuario do TK-85 e a Micro¬ 
hobby que tem a eficiente diregao de Angel D. Zacca 
ro Conesa e Alvaro A.L. Domingues e que entre os 
seus assessores tecnicos conta com o prof. Wilson 
Jose Tucci. 

Alias falando da Microhobby, o programa do 
mes da N9 5 e um programa que permite tambem obter 
o caleidoscopio. 

£ uma forma muito interessante usando in¬ 
clusive a ins trugao POKE. 

Voce recebe ou compra a Microhobby? 
nSo::: 

Entao esta perdendo muito... 

3) No livro do Delio Santos Lima "30 Jogos para o 
TK-82 e CP—200 aparece o interessante programa 
"Gerando quadros". 

^) Finalmente no nosso livro "Conhecendo e Utilizan 
do o TK-2000 voce achara um lindo programa para 
um CALEIDOSC6PI0" colorido. 

Coisas que so o TK-2000 COLOR permite... 
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Nao vale, depois destes comerciais chamar- 
rae de chato, ofertante . 

Definigao - Chato ofertante e aquele iden- 
tificavel por frases do tipo 

"Sou amigo do peito do Paulo M. Aluf!" 

"Voce mandou, eu lhe dei todas as "dicas"..." 

"Voce manda, nao pede!" 

0 lema do chato ofertante e 

"Os autores 11 amigos "s ao para essa ocasioes!" 

Aspas dentro de aspas, esta e boa nao? 

fi facil fazer isto dentro das aspas que se 
guem um PRINT? 

Leia as 30 primeiras paginas do livro que 
voce descobre isto. 




o TK-85 . 

"A MAIOR APOSTA" e um jogo muito facil. 

Voce caro(a) leitor (leitora) e eu (TK-85) 
podemos escolher numeros inteiros de 1 a 13. 

Cada numero pode set escolhido apenas uma 
vez por cada um de nos. 

Em cada confronto vence aquele que tiver 
escolhido o maior numero. 

Aquele que venceu a ultima etapa do jogo 
sera o ultimo ou seja o segundo na escolha dos nume 
ros na proxima etapa do jogo. Caso haja empate nm— 
guem ganha pontos e efetua-se um sorteio para saber 
quern vai ser o primeiro a escolher um numero na no¬ 
va etapa. 

Para nao haver briga na primeira etapa do 
jogo sorteia-se quem vai ser o primeiro a escolher 
um numero entre 1 e 13. 

Tanto pode comeqar voce[o(a) humanoide]] co 
mo o TK-85 ("monte de circuitos"), 

Nao esmoreqa tecle o programa abaixo que o 
seu esforqo sera recompensado por merecida distra- 
9S0. 




18 ? 

5 DIM A(26) 

10 FDR X =1 JO 26 
20 LET A(X)=1 
30 NEXT X 
32 LET H=0 
34. LET B=0 
40 RAND 

50 LET I = INT (2 *RND) +1 
50 FOR C*1 TO 13 
70 IF 1=1 THEN GOTO 420 
30 PRINT "EU j TK*35 COMECO" 

90 GOSUB 300 
100 GOSUB 360 
110 GOSUB 400 
120 LET A(X)=0 
130 LET A(R+13)=0 
140 IF X =R THEN GOTO 465 
ISO IF X> R THEN GOTO 490 
ISO PRINT •■EUtTK-SB) UENCI NE5s 
ft ETAPR" ' ' 

IBS PRINT "EIJ TINHA ESCOLHIDO t 
TK-3'5) ";R:" E UOCE "X 

170 LET B =8 +1 
ISO LET 1=1 
190 NEXT C 
200 PAUSE 100 
210 CLS 

215 FOR Z=i TO 32 
220 PRINT 
230 NEXT Z 

240 PRINT “O LOGO TERM INOU-AI t 
STA A CONTAGEM FINAL“ 

250 PRINT _ ■ 

260 PRINT 

270 PRINT "UOCE" , ”EU , TK*35" 

230 PRINT A,B 
262 FOR Z=1 TO 32 
234 PRINT ”i" , 

2'36 NEXT Z 
290 STOP 

m 300 PRINT "EU(TK —35) JA ESCOLHI 

310 LET R=INT CRND*13>+1 
320 IF A (R + 13) =0 THEN GOTO 310 
330 PAUSE 20O 
350 RETURN 

360 PRINT "E A SUA UEZ ""HUMANO 

IDE. 

370 INPUT X 

330 IF R (X) =0 THEN GOTO 370 

390 RETURN 

400 PAUSE 400 

405 PRINT 

410 RETURN 

420 PRINT '‘UOCE UAI PRIMEIRO 

HUMANQIDE. 

430 GOSUB 370 
440 GOSUB 300 
450 GOSUB 400 
460 GOTO 120 

465 PRINT “NESTA ETAPA HGUUE EM 
PATE" 

470 LET I=INT (AND*2)+1 
430 GOTO 190 

490 PRINT “UITORIA E SUP NESTA 

ETAPA. ""HUMANOIDS. 

495 PRINT "UOCE ESCOLHEU ",X," 

E EU TK-35 ";R 
5O0 LET A =A +1 
510 LET 1=2 
520 GOTO 190 
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Urn trecho da conversagao entre voce o TK- 
85 e do tipo: 


UITORIA E SUA NESTA ETAPA , “HUMH 
NOIDE" e 

UOCE ESCOLHEU 9 £ EU TK-35 5 
EU / TK*35 COMECO 
EU(TK-SS) JA ESCOLHI 
E A SUA UEZ “HUMANOIDE" 

UITORIA E SUA NESTA ETAPA, “HUMA 
NO IDE" „ 

UOCE ESCOLHEU 12 5 EU TK-os 2 
EU. TK *85 COMECO 
EU (TK-35) UR ESCOLHI 


No final do jogo pode surgir um relatorio 

do tipo: 



UOCE EU , TK.*S5 





Um arranha-ceu de 19 andares esta eta cha- 
mas e voce e o chefe dos bombeiros ("pintoso" como 
era o Steve Me Queen no filme o "Inferno na Tor¬ 
re") com a incumbencia de salvar 13 pessoas corren- 
do perigo de serem devoradas pelo fogo e que deses- 
peradas saltam do edificio. 

Assim que elas saltam do topo do ediflcio 
toman uma trajetoria toda "complicada" enquanto es- 
tao no ar. 

Nervos de ago sao necessarios. 

Deve ser brincadeira, pois onde ja se viu 
ter nervos de ago. 

Alias parece a mesma coisa que chamar um 
brutamontes de hipopotamo (hipo nao e de pequeno...) 

Alias este e um pequeno alerta sobre o pe¬ 
rigo que pode ocorrer nos enormes predios de hoje. 

Voce sabia que em 1906 nao havia na Terra 
nenhum predio com mais de 40 andares. 

Hoje dezenas de predios em Nova York por 
exemplo, tern mais de cinquenta andares e o grande 
destaque e a Sears Tower em Chicago com 110 andares, 
maior que o Empire State Building que tern 102 anda- 
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E pasmem em -agosto de 1984, o mais conheci 
do construtor nova*iorquino da atualidade Donald 
Trump propos a construgao de uma torre de 150 anda 
res com esxritorios na parte inferior, um hotel na 
parte central e apartamentos de "super-luxo" na par 
te superior. 

Realmente uma catastrofe do tipo incendio, 
falta de energia ou falta de agua em um predio des- 
tes deve ser um caos imprevisivel. . . 


Bern, vamos ao nosso salvamento era um predi 
nh.o de apenas 19 andares. 

No programs que se apresenta abaixo voce 
tern uma rede com a qual tentara apanhar as pessoas 
que se langam do topo do predio. 

Voce mexe a rede com as teclas 5 (vai para 
a esquerda) e 8 (vai para a direita). 


10 GOSUE; 1000 
20 LET P=0 
30 LET 3 =P 
40 LET Pal 
50 LET G=9 
60 CL5 
70 LET X = 10 
30 FOR K=2 FO 20 
30 PRINT RT K , 0, 

100 NEXT K 

120 FOR Ls3 TO 18 3TEP £ 

130 PRINT RT L , 1;" ”;AT L,3," " 
J RT L , 5; " " j RT L,7, " " 

140 NEXT L 

142 PRINT. RT 13/3; " 

144 PRINT RT £0/3;" 

150 PRINT RT 20, X-l , 

160 FOR Tsl TO 7 
165 NEXT T 

170 PRINT RT F,S;"X" 

130 IF F <INT (RND *5) +2 THEN GOT 
0 240 

130 PRINT RT 20.X-1;" 

200 IF INKEY $ = ”3" THEN LET X=X + 

2 

210 IF X >31 THEN LET X=31 

220 IF INKEY$="5” THEN LET X=X- 

1 

230 IF X<10 THEN LET X=10 
240 PRINT RT F.,6;" " 
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250 LET F=F+1 

260 IF F >13 THEN GOTO 230 

270 LET G =G + INT (RND*4) -1 

=:S0 IF G <: 10 THEN LET 6 = 10 

230.IF F =21 THEN GOTO' 310 

300 GOTO 150 

310 LET R =P +1 

320 IF G=X OR G =X-1 THEN GOTO 4 
20 

330 PRINT RT 21.G;V 
340 FOR M = 1 TO - 10 ' 

350 PRINT RT 7.21; "5PLR5HH" 

360 PRINT RT 7.21; “ HOTaSm " 

370 NEXT M 

330 PRINT RT 9 .. 13; "SfiLUOS =" ; S ; " 
DE " ; P 

390 IF P = 13 THEN GOTO 430 

400 CL5 

410 GOTO 40 

420 LET 5=5+1 

430 FOR N=1 TO 10 

t? RINT RT 7,1-4; " PESCRRIR PER 
FEITR" 

450 PRINT RT 7,14, 


1460 NEXT N 
•470 GOTO 330 
430 CL3 

493 FDR J = 1 JO 21 

500 PRINT "***•**.&•.**$..*#£#**.$#.$** 

510 NEXT J 

520 FOR K =7 TO 13 

530 PRINT RT K , 4, " 

540 PRINT RT 3,5;"SUR CONTRGEM 
FIHfiL FOI ";S 
550 IF 3=13 THEN GOTO 600 
S&0 PRINT RT 10,5;"UOCE RODE 5E 
R REBRIXRDO" 

570 PRINT RT 11,5;"UOCE RODE HE 
LHORRR" 

B8B PRINT RT 12,5; "JQGUE OUTRfi 

590 GOTO 643 

6O0 FOR K =1 TO 13 

610 PRINT RT 13,5:"tSSS*PERFEITO 


^ print RT 10.5/ 

630 NEXT K 
540 FOR 2=1 TO 339 
650 NEXT Z 
660 RUN 
1000 CLS 

1010 PRINT RT 4,4,"0 INFERNO NR 
TORRE" 

1020 PRINT RT 3,4;"5-URI PRRR R 
E30OERDR" 

1030 PRINT RT 9,4,"3-UfiI PRRR R 
DIREITR" 

1040 PRINT RT 13,4;"RPERTE OURLQ 
UER TECLR PRRR COMECRR" 

1050 IF INKEY $ = *'" THEN GOTO 1050 
1060 RETURN 
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Ao dar urn RUN voce vera o seguinte, na te¬ 
la : 



Espero que voce, apos um pouco de pratica 
consiga salvar as 13 pessoas e evitar ao maximo uma 
mensagem final do tipo: 


******************************** 
******************************** 
********************************* 
*************■£■****************** 
******************************** 
S******************************* 
* * * * * * * 

*****SUA C0NTAQEM FINAL FOI 11** 
***************************'*****• 
* * * **UDCE PODE 5EP REBfilXflDO**** 
*****UOCE PODE MELHQRAR*-******** 
*****JOSUE 0UTRR U £ I TR********* 


********* 


^*******^*****^*****^ 


***************** 


* 4 -^**^**** 4 '***** 

^**^**^*^***^*% 


*************** 
********** *‘**** 


Comentarios elucidativos sobre o programs 
"0 INFERNO NA TORRE" 


Linha 10 - Com esta instrugao vai-se a uma subroti- 
na que explica como se pode ir para a di 
reita ou para a esquerda. 
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Linha 20 - Variavel que serve para contar as pes¬ 
soas que precis am ser salvas. 

Linhas 40 e 50 - Inicializagao para a 1? pessoa. 

Linha 70 - Da a posigao inicial da rede. 

Linhas 80 e 150 - Com estas instrugoes ensina-se o 
TK-85 a desenhar o predio, com as jane- 
las e a porta inclusive. 




























Aproveitamos esse joguinho para fazer uma 
homenagem a Helio Rubens Garcia o maior encagapador 
que o Brasil produziu ate agora. 

Muitos ja foram brilhantes e elevaram ao 
ponto mais alto a bandeira nacional apos uma compe- 
tigao internacional de basquetebol. 

Quern nao se lembra ou nao conhece as histo 
rias sobre o "Nene" Sucar, Carlos "Mosquito"* Car- 
mo "Rosa Branca", Menon, Amaury, Jathyr, Wlamir, Ed 
ward, Bira, Edson, Angelim, Algodao e mais recente- 
mente de Marcel, Marquinhos, Fausto, Carioquinha, 
Adilson, Gilson, Oscar, Silvio, Cadum e tantos ou- 
tros que vao surgir no esporte de James Naisnuth. 

Porem, sem duvida nenhuma, as estatisticas 
o provam, ate agora ninguem conseguiu .um desempenho 
tao duradouro e tao brilhante como Helio Rubens Gar 
cia (se bera que o Bira esta tentando contestar is- 
to...). 

0 Helio Rubens jogou ate o inicio de 1984 
e deu ao vivo um exemplo de quao importante e o es¬ 
porte para o desenvolvimento nao apenas do fisico 
mas do intelecto,possibi1itando a mais linda conjun 
qao de qualidades ou seja raente sao em corpo sao. 
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Nem acreditamos muito quando o nosso pai 
nos contou uma historia de 1959 em que pela primei—■ 
ra vez jogou contra o Helio Rubens la em Franca no 
clube do Bagres... 

£, o Helio Rubens ainda poderia jogar aque 
le basquete finlssimo pois entre outras coisas e um 
privilegiado por uma excelente educa^ao e mode de 
vida exemplar. 

Parabens senhor Helio Rubens Garcia o"GRAN 
DE ENCA£APADOR". 

A unica forma de nao se perder tudo isto,e 
guinda-lo a condiqao de treinador da nossa sele^ao 
brasileira de bola ao cesto e com a sua dedicaqao 
transferida para o grupo impedir futuros insucessos 
como o ocorrido recentemente na Olimpiada de Los 
Angeles. 

No programa "0 ENCAQAPADOR" voce pode mo¬ 
ver um cesto (veja a linha 150 do programa que for¬ 
ma o mesmo). 

Voce pode mover a "cagapa" para a direita 
ou para a esquerda (veja as linhas 190 e 200), 

Do ceu caem moedas de ouro (isto so oaorre 
em sonho ou em um livro tipo TK-Divertindo,,,) e vo 
ce deve cata-las. 

0 maximo de moedas que voce pode catar nao 
pode ultrapassar 10 (e bom deixar alguma coisa para 
os outros tambem...). 

Se voce errar uma "encaqapada" lhe sao des 
contados 13 pontos em cada erro e aparecera uma con 
tagem negativa indicando que es um "grosso" (veja a 
linha 350). 

Cada catada correta lhe agrega 
(veja a linha 260). 


13 pontos 
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As instruqoes das linhas 210 e 220 impedem 
que a caqapa seja movida fora da tela, 

Finalmente, ao se atingir um numero razoa- 
vel de etapas no jogo a sua moeda comeqa a cair de 
uma posiqao distinta, aleatoriamente escolhida da 
parte superior da tela (veja as linhas 410 e 420). 

Voce vera algo deste tipo em um dado ins- 

tante. 




10 SLOW 
20 LET C = 15 
30 LET N=0 
4-0 RRND 
50 LET T =0 
50 LET D = 15 
70 LET F=19 
30 LET L =1 

90 GOSUB 4-00 _ 

100 IF T > =130 THEN GOTO 300 
110 LET L =L +1 
120 CLS 

130 IF L >IS THEN GOTO 350 
140 IF L >17 THEN GOTO 230 
150 PRINT R7 L .. 0",CHR$ 13*- 
",flT F,D;" ",CHR$ 130;CHR$ 9 * 

R$ 9;0HR$ 129," ” 

155 FOR Gal TO 10 

156 NEXT G 

170 IF INKEY*<:•"' THEN GCTl 190 
130 IF INKEY$a"" THEN GOTO 90 
190 IF INK£Y$ = ,, 3'“ THEN L£7 0=0 + 

^200 IF INKEY $ = ”5" THEN LET 0 =0 - 

*210 IF 0 >24 THEN l£ t 0=24 
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220 IF 0 :2 THEN lET D=2 
230 IF >C=D-rI} RND tL :> IS) THEN 
GOTO 250 

240 IF :=D+2. RND L’IS) THEN 
GOTO 260 
250 GOTO 20 
260 LET t : t +1 3 

270 PRINT RT L,3 - RT F C." 

CHRi 130,CHR $ 130. 0 HR$ 12G.CHR$ 
iitS - 

230 PRU5E 21 
230 CLS 

300 PRINT RT 5,2 lONTRGEH" T, 
PONT 05’ 

310 PRINT RT 16 2 OUER PH 

NTINURR R RRRTIDR z -N-' 

320 INPUT R$ 

330 I- R$ =' 5' Then GOTQ 50 

540 STOP 

350 ^E T T s ? -l:'5 

360 GOTO 260 

400 LET N=N+i 

410 IF Nail THEN ^Z~~ 3 sIN T 10 + 
RNDi410 

420 IF Nell tHEN j_EN e0 
430 RETURN 

_500_ PRINT ‘UDCE _R SRNHOU DEI H 


U De ujr 

510 FOR R=1 
520 PRINT- 
530 NE * T E 
540 PRINT 
550 GOTO 34 




-RRRP 


Espero que nao demore muito para voce che- 
gar a seguinte mensagem: 


U 0 C E 0 u E P 0 0 NT IN < 
iS/N) '? 

UGCE JR GflNHOL DEI 
0 E E5TR PIC: 

JR DR PRRR RRRRR^ 


i H r •; R P £. £ 1 X C R 

r c D R f D E 0 U R 



Voce esta em urn campo de concentragao, po- 


rem durante uni certo intervalo de tempo t_ e possl- 
vel desativar o sis tema eletronico e pode-se tentar 
escapar do mesmo. 

A trilha para a sua fuga e "tortuosa" po- 
rem e posslvel fugir pela cerca do lado da direita 
do campo de concentragao (veja a Figura 1). 

Comentavios iniciais: 

1) 0 programa "FUGINDO PARA A LIBERDADE" 
deixa a tela clara durante alguns segundos quando 
ocorrem as inicializagoes e atribuigao de valores a 
variavel coletiva bidimensional A(V,H) que sao os 
pontos por onde nao se pode passar (veja as linhas 
80 a 110). 

2) A seguir um grande quadrado "escuro" e 
desenhado na tela devido as instru;oes das linhas 
150-170. 

3) Um "0" fica piscando inicialmente no la 
do da esquerda do campo de concentragao. 

0 "O' 1 piscando represents a sua posigao 
tentando escapar por alguma passagem viavel. 

Voce deve tentar se mover para a direita. 
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para cima para baixo, para esquerda e para a direi- 
ta (linhas 250 e 260) e vocS sentira que em alguns 
movimentos sera barrado ou seja nao ocorrera nenhum 
deslocamento e neste caso deve tentar outra dire- 
5 ao, 

0 TK-85 ira mostrar-lhe a sua trilha como 
e mostrado nas Figures 1 e 2. 



0 seu "desideratum" e chegar ao lado da di 
r&ita da tela como esta mostrado na Figure 2. 

Nao tente escaper por cima ou por baixo da 
cerca do campo de concentraqSo pois vai "estourar" 
o programa e vai aparecer uma mensagem de erro. 

0 mesmo deve ser dito ao se iniciar a sua 
fuga sobre o lado esquerdo. 

4) Note que na linha 100 atribue-se o nume 
ro 7 para os pontos internos por onde nao se pode 
paspar e voce nao os conhece claramente. 

evidente que para os pontos onde se pode 
passar atribue-se o valor 0 (zero) (linha 325) e 
marca-se a trilha da passagem com um "0". 

5) Este e um jogo que exigira de voce mui- 
ta'habilidade no teclado para que em tempo menor ao 
que e permitido (linha 190) vocS consiga a condiqao 
da Figura 2 e nao a da Figura 1. 


Figura 1 



Figura 2 


IS FAST 

20 DIM A•20,20• 

30 LET L = 10 
4-0 LET C =2 
50 LET K =0 
60 l_ET G$ = "0 ,< 

78 REM AI UAI A GERACAD DO 
JUNTO BIDEMENSIONAL 
30 FOR Z=1 TO 39 
35 LET U = I NT (RND*28> +1 
90 LET H = INT s:RN0*28> +1 
108 LET fiiU, Hi *7 
110 NEXT Z 

120 REM PI URI 0 DE3ENH0 DO 
PO DE C0MCENTRACA0 
130 SLOW 
14-0 CL5 
145 PRINT 


CON 


CAM 


160 print " 

^ ' * 

? " 170 NEXT I 

130 REM AI UAI D AJUSTE DO TEMP 
0 DISPQNIUEL PARA OUE 0 PRISIONE 
IRC POSSA ESCAPRR 
190 LET Tsi NT (RND*149) 

200 REM AI UAI 0 TRECHQ OUE PEP. 
MITE MOUER 0 PRISIONEIRQ 
210 LET K =K +1 






























198 


220 
230 
24-0 
250 
$ = " 6 " 
2S0 
$ = 1 , 3 " 
270 
230 
290 
295 
300 
310 
315 
325 
330 
335 
34-0 
350 
360 
370 
330 
390 
395 
4-10 
4-20 
4-30 
4-4-0 
-4-50 
4.60 
470 
430 
490 
500 


IP K>T THEN GOTO 420 
LET P=L 
LET 0=C 

LET L =L - i INKEY$ = "7")+(INKEY 

LET C =C-<INKEY$ = "5"5 + fINKEY 

IF C > 20; THEN GOTO 335 
Ir PUL, 0=7 THEN .LET L=P 
IF HJL,C)=7 THEN LET C=0 
FOR fi=l TO 3 
PRINT PT L,0, '' " 

PRINT PT L,C,G$ 

NEXT P 

LET p(L,C)=0 

GOTO 200 

FOR Z = 1 TO 30 ■ 

PRINT PT 0,21," UDCE " 
PRINT HT 1,21.: “CONSEGUIU" 
PRINT PT 2,21; “ cSCPPPP " 

next T z^ T 

GOTO 500 

FOR Z=1 TO 30 

PRINT PT 0,21,“ SUP FUGP" 

PRINT PT 1,21;" FOI" 

PRINT PT 2 .21; ■•DESCOEERTP" 

ESS gf 

PRINT PT 2 21. 

NEXT Z 
STOP 


Depois que voce brincar bastante com o "FU 
GINDO PARA A LIBERDADE" tente fazer algumas modifi- 
caqoes no programa tais como: 

a) Aumente a densidade dos setores pelos 
quais o "prisioneiro" nao pode passar. 

b) Acrescente as condiqoes limites que im- 
pedem voce fugir pelo topo, pela parte de baixo ou 
pela esquerda da tela, com o que se evita a saida 
da mensagem de erro. 

c) Caso o tempo do "prisioneiro" se esgote 
encalxe o novo trecho do programa "SENDO CA^ADO" em 
que um guarda sai em busca. 
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Encaixe, como sugestao, a instruqao 

220 IF K >T THEN GOTO 420 

Da linha 420 em diante voce deve "bolar" 
um programa de ca?a ao fugitivo. 

Mudaram as posiqoes e agora voce e o guar 

d a. 








Este programa realmente Simula uma "GALERIA 
DE TIRO" que voce pode encontrar em alguns parques 
de diversoes. 

Um objeto desloca-se da esquerda para a di- 
reita ao longo da tela abaixo de uma linha de "al- 
vos" numerados de 1 ate 9. 

Voce caro(a) leitor (leitora) deve estar a- 
tento(a) para acertar nos objetos numerados apertan 
do uma das teclas numericas 1 a 9, 

0 numero de possibilidades que lhe sao da- 
das no programa e igual a 24 e exibe-se o numero 
atual de acertos e o numero do tiro a ser dado. 

As variaveis usadas no programa sao: 

A = numero de acertos 

T “ numero do tiro Centre 1 e 24) 

N = numero da tecla a ser pressionada (so valem 
os inteiros entre 1 e 9) 

P * posi^ao do objeto na linha 


Bern a? vai o "programinha": 
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10 LET fi=0 
20 PRINT 

30 PRINT " 1 2 3 4-5 6 

7 3 9 

4-0 PRINT AT 4-,0; "TIRO NO-'" 

50 PRINT AT 5,0,"ACERT05; “ 

50 FOR T = 1 TO 24 


70 LET P=0 



90 PRINT AT 4,3,T,TAB 12.; 


100 PRINT AT 3,P;"M" 

120 LET NsCODE INKEY$-23 

130 IF H<1 OR N>3 THEN GOTO 210 

140 PRINT AT 3 , 3*N;" 

150 IF 3#N<>P+1 THEN GOTO 200 
160 PRINT AT 4.12;"VOCE AOERTOU 


170 LET A =P, +1 
130 PRINT AT 5,2,A 
190 GOTO 230 

200 IF INKEY $ < >THEN GOTO 210 
210 LET F=P- + 1 

220 IF P <>31 THEN GOTO 100 
230 PAUSE 250 
240 'NEXT T 

250 PRINT AT 4.12; iWrfSMgMK 


2S0 STOP 


Espero que voce obtenha o seguinte tipo de 
mensagem final no jogo "GALERIA DE TIRO". 




Voce esta junto a uma montanha de sacos de 
areia com a sua arma anti-tanque ("bazuca" para os 
intimos) carregada e pronta para o uso. 

Urn tanque inimigo aparece no horizonte, po 
rem um grande obstaculo (tipo "morrinho") esta na 
linha do fogo. 

Voce aciona a sua arma e fogoooooooooo... 

0 obus descreve um arco sobre o morrinho 
representado no seu programa por um muro, penetra 
atraves da armadura do tanque, produz uma terrivel 
explosao e reduz o mesmo a uma massa de metal toda 
retalhada. 

Sucata impres tavel e o que vira o tanque 

Entretanto ha pouco tempo para desfrutar 
esse perlodo de prazer e felicidade, pois logo a 
seguir surge um novo tanque no horizonte e voce de- 
ve destrui-lo tambem... 

Neste jogo voce deve pensar em um angulo e 
em uma velocidade conveniente para o seu obus para 
que possa passar por cima da parede e explodir o 
tanque. 

0 projetil e atirado e a sua trajetoria e 
calculada de acordo com as formulas adequadas da 
Fisica a medida que se tenta acertar no tanque es- 
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tilizado do outro lado da parede (veja as linhas 260 
ate 330). 

Note que o valor da velocidade que voce de 
ve escolher deve ser maior que 10 (veja a linha 220) 
ja o angulo pode eatar entre 1 e 90° extremos nao 
incluidos (veja a linha 150). 

A escolha da posigao e altura do muro em 
cada jogo e feita aleatoriamente (veja as linhas 
50 e 60). 

0 mesmo ocorre com o posicionamento do tan 
que (linha 70), 

Veja a forma sofisticada que se deu ao po¬ 
sicionamento da arma apos a escolha do angulo (li¬ 
nhas 170 e 180). 

Finalmente se voce atirar fora da tela e 
para cima- pode ser ainda que a trajetSria do tiro 
volte a ser descrita ja se voce atirar fora da tela 
e para a direita vai aparecer a m‘ensagem n V0C£ ERROU 
DESTA VEZ" (analise as linhas 340, 350, 360 e os 
correspondentes desvios). 

Aparece inclusive o alerta para nao acer- 
tar no muro como a mensagem abaixo: 

El CUIDPDO, PCERTOU NC MURO 
PPERTE QURLQUER TECLfi 



M 

M 

M 

M 

M 

M 

M 


<&> 

00 


Al esta o programa "BAZOOKA" 
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10 RRND 
£0 CLS 
30 LET 0=0 
4-0 DIM P$(3£> 

50 LET psS+INT (RND*1S) 

60 LET H=3+INT (RND*j5) 

70 LET TRNOUEsP+2+INT (RND*t26 
pj J 

30 PRINT PT 19 ,TPNQUE; ■"jRT 
20,TPNQUE: ">”,RT 21,TRNOUE > " 
00 *' 

90 FOR Ksl TO H 
100 PRINT AT 22-K.P "M" 

110 NEXT K 

120 PRINT PT 20,1; ‘ mm"i AT 21,0; 
" 


130 PRINT PT 3,0,"ENTRE COM 0 P 
NGULO" 

140 INPUT P 

150 IF fl <1 OR P > 90 THEN GOTO 14 

0 

160 PRINT PT 3,0;P* 

170 LET X = I + (P>13> + (P>35) + tP>56 
)+(fl>78) 

130 PRINT PT 20.1, Cmm" PND X = 1 
t + ( "m m " PND X =2) 4 ! "** " PND X=3) + 
i "I 1 PND X > 3) 

190 PRINT PT 19 1. <" »■" PND X=3 
) + i" I" PND X=4)+r : |" PND X =S < 

200 PRINT PT 3.3,"ENTRE COM P U 
ELOCIDPDE" 

210 INPUT U 


220 IF U -C10 THEN GOTO 210 

230 LET 0=0+1 

240 LET U =*J/4 

250 PRINT PT 3,0; P'$ 

260 LET P=P*PI/IS0 

270 LET HI = U #0-05 P 

230 LET U1 ='J +SIN P 

290 LET 2=63 

300 LET U=43 

310 LET T =0 

320 LET X=6+H1#T 

330 LET Y=6+U1 +“ r -4.9#T*#£ 

340 1= Y > 43 THE, UNPLOT Z,U 
350 IF Y> 43 THEN GOTO 410' 

360*IF X >63 THEN GOTO 490 
370 PLOT X,Y 
330 UNPLOT Z,U 
390 LET Z=X 
400 LET y=Y 
410 LET T =T +.2 
420 IP Y < 2 THEN GOTO 440 
425 IF X>P+2-2 PND X :P#2 + 3 PND 
i <=H*2+I THEN GOTO 440 
430 GOTO 320 
440 UNPLOT Z,U 
450 IF Y'i.2 THEN GOTO 430 
460 PRINT PT 3,0;"£I 0UIDPD0, P 
CERTOU NO MURO" 

470 GOTO 510 


4S0 IF X>=TPNQU£*2 AND 
UE+2+7 THEN GOTO 555 
490 UNPLOT Z.U 


X <=TRN0 
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500 PRINT fiT 3,3;"UOCE ERRQU DE 
5TR UEZ" 

510 PRINT RT 11,3;"RPERTE OURLO 
UER TECLR DE NDUO" 

520 IF INKEY$="" THEN GOTO 520 
530 PRINT RT 19,1;’' 

54.0 PRINT RT 3,0 ; R $ ; RT 11,0;fi$ 
550 GOTO 130 
555 FOR N = 1 TO 15 
560 PRINT RT 23 TRNOUE+1; I ",R 
T 23,TRN0UE +1, ’ 1 1" 

570 NEXT N 
580 CL5 

630 PRINT RT 8,3;"TIRO MRRRUILH 
OSO-BEM NO RLUO" 

610 PRINT RT 11,6:"NR ";C, " TE 
NTRTIUR" 

620 PRINT RT 12,2,"RPERTE OURLO 
UER TECLR 

630 IF INKEY$j= "" THEN GOTO 630 
S40 RUN 


Espero, que depois de um pouco de pratica 
saiam muitas mensagens como esta: 


TIRO MRRRUltrFTwSO-SEM NO RLUO 


NR 2 TENTRTIUR 
RPERTE OURLOUER TECLR 



Cada quarto de um labirinto possue (geral- 
roente) tres portas dando para outros quartos ou pa¬ 
ra a liberdade. 


Os quartos sao numerados e voce sabe emque 
quarto esta pelo numero mostrado na tela. 

Voce come 5 a no quarto 1 (um), justamente 
quando o dragao esta entrando pela saida. 

Caso o dragao esteja no quarto adjacente, 
voce pode "ouvi-lo". 

Voce se movimenta entrando com 1,2 ou 3 e 
escolhendo desta forma uma das portas ou voce fica 
onde esta entrando com zero. 

0 dragao se move sempre depois de voce. 
Caso voce se encontre com o dragao, trans- 
formar-se-a em sua comida. 

Para veneer ou melhor para nSo morrer voce 
precisa achar uma saida antes que o dragao o encon¬ 
tre . 

Explioagoes e vecomendagoes adioionais 

1) Desde que o dragao se desloca depois de voce, vo 
ce podera se mover para o mesmo quarto que ele 
esta sem ter ouvido o seu barulho e assim 


voce 
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sera "jantado(a)" sem aviso previo. 

Nap deixe ser comido(a) aem nenhuma resis- 
tencia... 

2) Voce nao deve trapacear, estudando a geragao do 
labirinto atravSs do programs e dessa forma des- 
cobrir alguma "coisa” que o auxilie a escapar. 

Por exemplo, tornar-se-ia evidente que as 
portas numeradas com valores pequenos o guiam pa 
ra quartos de numeros baixos. 

3) "Colecionadores" de truques de programagao podem 
notar a interessante instrugao da linha 290 onde 
aparece um GOTO calculado com urn desvio regulado 
por um numero aleatoric. 

Espero que tenha sorte no jogo e saia mais 
vexes a mensagem: 


NAO E QUE UOCE FUG-IU 


OUER OUTRfl BRINCRDEIRA COM 0 DRA 
GRO? (S/M) 

do que o recado "gastronomico" 


o DRAGAO URI 5E EMPRNTURRRR 


OUER OUTRfl BRINCRDEIRA COM 0 DRA 
GflO? (S/Mi 


Al esta o "programinha"; 
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5 RAND 
10 DIM A CIS) 

20 DIM BC16) 

30 DIM C(16) 

4-0 FOR J = 1 TO 16 

50 IF fl(U) >0 THEN GOTO 30 

60 GOSUB 1000 

70 IF R < > J THEN LET ACJ)=R 
SO IF BCU)>0 THEN GOTO 110 
90 GOSUB 1000 

100 IF RoU THEN LET BCU)=R 

110 IF C(J)>0 THEN GOTO 14-0 

120 GOSUB 1000 

130 IF ROJ THEN LET CCJ)=R 

14-0 NEXT J 

1S0 LET T = 1 

160 LET Z =INT CRND+I5) +2 
170 LET D=Z 
130 CLS 

190 IF C D = A(T) OR D=B'T) OR D=C 
iT))=0 THEN GOTO 210 
200'PRINT "OOCE 0UUE 0 DRAGAO." 
210 PRINT 
213 PRINT T 

215 PRINT "MAO ESOUECR QUE UOCE 
SO PODE ENTRAP COM 1, 2, 3 OU 0 


INPUT X 

IF X=1 THEN LET T=A(T) 

IF X =2 THEN LET T =B(T) 

IF X =3 THEN LET T=C(T) 

IF T=D THEN GOTO 360 
IF T=Z THEM GOTO 4-00 
GOTO 230+(20*tINT (3*RND)+1 


LET D =A ('D) 

GOTO 350 
LET D=B(D) 

GOTO 350 
LET D=0CD) 

IF T<>D THEN GOTO 130 
CLS 

FOR M = 1 TO 13 

PRINT AT 7,0;"O DRAGA0 UAI 
MPANTURRAR" 


390 NEXT M 
395 GOTO 4-50 
4-00 CLS 

410 FOR M=1 TO 13 

420 PRINT AT 7,0;“NAO E QUE UOC 

E FUGILI... " _ 

430 - c I NT AT 7.0. iggy-B-^T-Th tfiiW 


440 NEXT M 

450 PRINT AT 14,0;"OUER OUTRfl B 
RINCADEIRA COM 0 DRRGAO? (S/N)" 
460 INPUT R$ 

470 IF R$ ="5" THEN CLS 
430 IF R$ = "5" THEN GOTO 5 
490 STOP 

1000 LET R = INT (iS*RND)+i 

1010 IF fl(R)=0 THEN GOTO 1050 

1020 IF BCR)=0 THEN GOTO 1070 

1030 IF C CR) =0 THEN .GOTO 1090 

1040 GOTO 1000 

1050 LET A (R ,i = J 

1060 RETURN 

1070 LET BCR)sj 

1030 RETURN 

1090 LET OCR)=J 

1100 RETURN 



38. COFRES DA SORTE 



Nesse jogo, cada jogador comega com 20u.m. 
0 primeiro jogador que obtiver mais do que 


600 u.m. ganha o jogo. 

Em cada lance, rodada ou "round" os jogado 
res (e um jogo para 2 jogadores) podem escolher um, 
entre tres cofres misteriosos os quais chamaremos 
no programs de X, Y e Z e que contem respectivamen- 
te 20, 25 e 30 u.m. 

0 seu TK-85 escolhe aleatoriamente qual 
dos dois jogadores e o primeiro para comegar cada 
etapa da partida. 

Caso um jogador escolha o cofre X podera 
obter o seu conteudo, multiplicado ate por 11 vezes 
porem nesse caso a taxa de desconto podera chegar a 
30%. 

Caso um jogador escolha o cofre Y podera 
receber o seu conteudo multiplicado ate por 6 vezes 
porem a taxa de desconto que pode incidir sobre es- 
ta fortuna pode chegar ate 55%. 

Finalmente se um jogador escolher o cofre 
Z podera receber o seu conteudo multiplicado ate 
por 3 vezes porem neste caso o desconto nunca pode¬ 
ra ser superior a 20%. 
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Como se ve o cofre X pode gerar o maior 
multip1icador e tambem o maior desconto, ja o cofre 
Z nos leva a uma situagao oposta e o cofre Y fica 
em uma situa^ao interraediaria, 

0 que fazer? Qual cofre escolher? 

Bern, este e um problema seu amiguinho(a) 
e da sua(seu) oponente... 

Nao esquega que no inlcio de cada "round"o 
TK-85 sorteia quem deve comeqar. 

Note ainda, que em cada partida um certo 
cofre so pode ser escolhido uma vez apenas. 

Assim se o jogador N9 1 escolher o cofre 
X, o jogador N9 2, nesta etapa, esta limitado a es¬ 
colher o cofre Y ou o cofre Z. 

Antes de teclar o programa, analise um pou 
co o fluxograma da Figura 1, quem sabe isto ira fa- 
cilitar um pouco mais o entendimento do programa"C 
FRES DA SORTE". 


to 
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- Fluxograma resumido para melhor compreen 
sao do programa "COFRES DA SORTE" 


Figura 1 
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5 POND 

10 PRINT PT &.0:"| | S COFRES 
DP SORTE ' 

20 LET P =20 
3© LET B=20 
4© LET X =20 
SO LET Y =25 
50 LET Z =30 
70 PRINT "UOGPD0R 1:"; 

SO INPUT p$ 

90 PRINT "JOGPDQR 2:"; 

100 INPUT E$ 

110 LET M =INT (RND*2.1+1 

120 LET Fi=£INT (RND*110)+1)/10 

130 LET F2=<INT (RND*605+1)/10 

140 LET F3=(INT (RND*30)+1)/10 

ISO LET D1=(INT (RND*30)+1)/100 

160 LET D2 =(INT CRND*5S) +1) /100 

170 LET D3 = (INT i:RND*30) +1) /100 

ISO IF N = 1 THEN GOTO 260 

190 LET C=0 

200 GOSUB 1000 

210 G0SUB 2000 

220 LET 0=INT (P*1003 /1'00 

230 LET U=INT (S*100)/10O 

232 IF U>600 DR U>60O THEN GOTO 

4000 

234 PRINT 


235 FOR K =1 TO 32 

236 PRINT ; 

237 NEXT K 

24£ PRINT "UPI COMECPR P PPOXIM 
P ETPPP (ROUND)" 

250 GOTO 110 
260 LET E=0 
270 GOSUB 2000 
230 GOSUB 1000 
290 GOTO 220 
300 LET R=P*F1 
310 LET T=P*D1 
320 LET D=D1 
330 LET P=R-T 
340 LET L=P 
350 GOTO 1160 
360 LET P=P*F2 
370 LET T=R*D2 
330 LET D =02 
390 LET P =R-T 
400 LET L=P 
410 GOTO 1130 
420 LET R=fl*F3 
430 LET T=R*D3 
440 LET D =03 
450 LET p =R-T 
460 LET L=P 
470 GOTO 1130 

1000 PRINT B$;“, OUPL E 0 COFRE 
DUE UQCE UPI ESCOLHER?" 

1010 INPUT E 

1020 IF E = 3 THEN GOTO 1070 
1030 IF E=X THEN GOTO 1090 
1040 IF E=Y THEN GOTO 1130 
1050 IF E=Z THEN GOTO 1240 
1060 GOTO 1010 

1070 PRINT R$," Jp ESCOLHEU ESTE 
COFRE" 


1030 GOTO 1010 
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1090 LET R=B*F1 
1100 LET T =P *01 
1105 LET 0=01 
1110 LET B=P-T 
1120 LET L=B 
1130 PRINT 

PRINT "0 UPLOR P RECEBER E: 

;INT (100*R)/l00;" U.H." 

1140 PRINT "0 OESCONTO E DE:";IN 
T ( 100 *T) .-100; *’ u.M." 

DE OESCONTO P 

PL IC POP FOI OE.'YD 

" IJ °CE' TEM PGORP: ; INT 
1 100 *L 5 /100; " u.M/" 

1165 PRINT 
1170 RETURN 
1130 LET R=B*F2 
1190 LET T =R $02 
1200 LET D=D2 
1210 LET B =R-T 
122© LET L=B 
1230 GOTO 1130 
1260 LET R=B*F3 
1270 LET T =R*03 
1230 LET 0=03 
1290 LET B=R-T 
1300 LET L=B 
1310 GOTO 1130 

2000 PRINT PS,", GUPL E 0 COFRE 
OUE UOCE UP I ESCOLHER?" 

2010 INPUT C- 

2020 IF C=£ THEN GOTO .2070 
2030 IF C=X THEN GOTO 300 
2O40 IF C=Y THEN GOTO 360 
2050 IF C=Z THEN GOTO 420 
2050 GOTO 2010 

2070 PRINT B $; " UP ESCOLHEU ESTE 
COFRP" 

2030 GOTO 2010 

4000 IF U>UI THEN GOTO 5000 

4010 IF U=U THEN GOTO 7000 

4020 GOTO 6000 

5000 FDR M = 1 TO 32 

5010 PRINT 

5020 NEXT M 

5030 PRINT “UOCF UENCEU ";P$;" 

PPRPBENS” 

5040 GOTO 6040 
6000 FOR M=1 TO 32 
6010 PRINT 
6020 NEXT M 

6030 PRINT "UOCE UENCEU “;B$;" 
PPRPBENS" 

6040 FOR M=1 TO 32 
6050 PRINT 
6060 NEXT M 
6070 STOP 

7000 PRINT "I5TG £ 0 CUMULO OP C 
OINCIDENCIP E GPMHPRPM 05 DOIS 5 
IMULTPNEPMENTE" 

7010 GOTO 6070 
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A* esta uma possivel "saida" no decorrer 

do jogo. 


0 UAL OR A RECEBER E 124.. 1 U.M. 

0 DESCONTO E DE:13.55 U.M. 

A TAXA DE DESCONTO APLICADA FOI 
DE.-0.11 

UOCE TEM AGORA . 110.4-4- U.M. 


VAJ COMECAR A PRO'-IMA ETAPA (ROU 

ND) 

ALE 0 MELHOP , OUAL E 0 COERE CUE 
UOCE UAI ESCOLHER* 

0 VALOR A RECEBER E;1211.53 U.M. 
0 DESCONTO E DE 1 60.57 U.M. 

A TAXA DE DESCONTO APLICADA FOX 
DE:.05 

UOCE TEM AGORA:1150.95 U.M. 

VICTOR . OUAL 'E 0 COFRE OUE UOCE 
VAX ESCOLHER? 


0 VALOR A RECEBER E:320.3 U.M. 

0 DESCONTO E DE: 51.24- U.M. 

A TAXA DE DESCONTO APLICADA FOI 
DE:0.16 

UOCE TEM AGORA;£59.05 U.M. 

******************************** 
UULE UENCEU ALE 0 MELHOP PARA 

dENS 


Alguns aomentarios expliaativos: 

1) Linha 190 - C e uma variavel auxiliar que permi- 
tira decidir se urn dado cofre ja foi escolhido 
pelo jogador N? 2 (B $ > ou seja permitir ao joga- 
dor N9 1 (A$) escolher um cofre nao escolhido 
por B$. 

2) Linha 260 — E e uma variavel auxiliar que permi- 
tira decidir se um dado cofre ja foi escolhido 
pelo jogador N9 1 (A$) ou seja permitir ao joga¬ 
dor N9 2 (B$) escolher um cofre nao escolhido 
por A$ . 

3) Linha 1010 ou linha 2010 - Nao esqueqa que os va 
lores de E (ou de C) que voce pode introduzir 
sao 20, 25 e 30. 



Na realidade este e um programa ben sim¬ 


ples de animasao e quern sabe deveria estar logo de- 
pois do programa "MEXENDO-SE" como porem so agora 
tivemos oportunidade de reformular o livro inclui 
mos o mesmo como uma novidade e por que nao dizer 
para acompanhar um modismo... 

Bern ai vai o programa e duas das posstveis 

"visoes". 


10 LET C$ = " 

20 LET S$=" 

30 LET 6 $ = " 

40 LET L $ = " 

50 LET P =15 
60 LET R =RND 
70 LET P=P+(R<.7j-(R>.6) 

50 IF P =30 THEN LET P=2 
90 IF P<£ THEN LET P=29 
100 LET S =4*IMT lRND*4) +1 , 

110 LET L=3*INT (RND#4)+1 

CL5 

122 FOR 1=1 TO IS STEP 5 

123 G05UB 130 
125 GOTO 167 

130 PRINT AT I .P +(RND>.5) ,C$ 
^140 PRINT AT I + l.F-i,5$(S' TO 5 + 

150 PRINT AT I+2.P;B$' 

160 PRINT AT 1+3.P-(L>6 )JL$(L T 
0 L+2+ CL >91 i 
165 RETURN 
167 NEXT I 
170 GOTO 60 


Jf.T.TT 
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Figura 2 



Sao apresentados a voce 3 linhas de cartas 


(pelo menos supoe-se que o que aparece sejam cartas 
viradas. . . ) 

A lirha A1 content inicialmente 21 cartas. 

A linha A2 pode conter no maximo 7 cartas 
e a linha A3 pode conter no maximo 12 cartas. 

A ideia e transferir cartas de linha para 
linha (ocasionalmente esvaziando linha ou linhas)de 
tal maneira que quando voce terminar as linhas A2 e 
A3, ambas, devem ter apenas 1 carta e a linha A1 ne 
nhuma carta. 

0 primeiro numero com que voce entra e o 
da linha da qual voce esta retirando as cartas (R$) 
e o segundo numero e o da linha para o qual voce 
esta transferindo as mesmas (Q$). 

Para esvaziar uma linha o segundo numero 
deve ser um 4. 

Assim por exemplo o par de entradas 1,2 mo 
vimenta o conteudo da linha A1 para a linha A2 res- 
peitado o maximo da linha A2. 

Ja o par 3,4 esvazia a linha A3. 

Tente conseguir no menor numero de etapas, 
como ja foi dito, a linha A1 sen nenhuma carta, a 
linha A2 com uma carta e a A3 tambem so com uma car 




220 


221 


ta. 

Sera que isto e possivel? 

Voce ficarS meio "doidao" ( M doidona"no bom 
sentido) com este "raxakuka", 

Ai vai o "programinha" final: 


10 DIM A (4.) 

20 DIM BC4.) 

30 LET K=0 
4-0 LET ’B Cl) *21 
50 LET fl (1)=21 
60 LET fl C 2) = 7 
70 LET fl C3) =12 
30 LET fl (4.) =-l 
90 C L S 

100 FOR L=1 TO 3 
110 PRINT AT L*2-2,0; "A"; Lj 
B CL 5 ;TAB 7, 

120 FOR C=1 TO BCL) 

130 PRINT ■H* 1 ; 

14-0 NEXT C 
150 NEXT L 
ISO LET K*K+1 

170 PRINT AT 3,0; “LANCE: . "jK 
130 PRINT AT 10,0;"TIRflR DE QUE 
LINHA? (1,2,3) “ 

190 INPUT R $ 

200 IF CODE R$ C29 OR CODE 

THEN GOTO 130 

210 PRINT AT 10,29;R$ 

220 PRINT AT 11,0;"PfiSSAR PARA 
GUE LINH.A? (1,2.3,4-5 " 

230 INPUT 0$ 

240 IF CODE 0$ <29 OR■CODE Q$>32 

THEN GOTO 220 

250 PRINT AT 11,31,0$ 

260 LET R=UhL R$ 

270 LET Q=UAL 0$ 

230 IF B (R) =0 OR 5(0) =fl(Q) THEN 
GOTO 320 

290 LET B(R)=E(R)-1 
300 LET B CO) *B (0) +1 
310 GOTO 230 

320 IF B(1)=0 AND B(2)=1 AND B( 
3) =1 THEN GOTO "340 
330 GOTO 90 

340 PRINT AT 10,0;"GflNHQU EM "; 
K;" LANCES" 


Um trecho do seu " j ogo-ch.arada ,t pode ser o 


aeguinte: 


a 1=2 m 
A2=? mmmmm 
A3=i2 mmsmm m m 

LANCE: 3 

TIRflR DE QUE LINHA? (1,2,3) 1 

PASSflR PARA QUE LINHA?(1,2,3,4)2 

Na pagina 13' do livro "Mutagoes" da extra- 
ordinaria Liv ULlmann aparece a frase da autora di- 
namarquesa Tove Ditlevsen. 

"Existe uma menina em mim que se recusa a 

morrer". 

0 mundo dos micros do qual o leitor e alei 
tora participaram, ajuda em muito a essa recusa e 
acreditamos trara muita paz interior a todas as pes 
soas que nele viverem. 

Bern, os programas de joguintios e de lazer 
terminaram. 

Como consolo podemos dizer que sao muito 
interessantes tambem os livros TK-Lembrando eTK-Cal 
culando assim como os outros livros do nosso pai 
Linguagem BASIC, BASIC sam segredos, De um APPLE a 
sua vida, Conhecendo e Utilizando o TK-2000,TK-2000 
na Matematica, etc. 

Alem do que esperamos que a revista Micro 
Sistemas continue com penetragao cada vez maior no 
Brasil todo, divulgando principalmente programas pa 
ra os micros da linha da Microdigital que no momen- 
to sao os mais baratos. 

Alias antes tarde do que nunca.,, 

No que tange a apresentagao de novidades 
e principalmente programas que possam ser executa- 
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dos nas tnaquinas ja existentes no Brasil a revista 
divigida por Alda Surerus Campos ocupa urn lugar pri 
mordial. 

Todos nos gostamos muito da Micro Sistemas 
e cono contxnua atualizaqao, recomendamos a mesma. 

fi evidente e esta e a ultima mensagem,voce 
sempre recebe ou compra a sua Microhobby que e a re 
vista sensacional para o usuario do TK. 

Para aqueles que ficaram fanaticos com os 
joguinhos, motivados entre outras coisas pelo TK- 
Divertindo recomendamos o software ja desenvolvido 
pela Microsoft e produzido pela Multisoft. 

Entre os jogos inteligentes e animados ja 
existentes em fita cassete citamos: 

Labirinto tridimensional 

TKADREZ I e II 

Jogo do Gamao 

Jogo de Damas 

Cubo Magico 

Jogo da Velha Tridimensional 

Torre de Hanoi 

Jogo da Senha 

Jogo de Palitos 

Monopolio 

Rally 

TK-Man 

Parque dos Pesadelos 

Es trategia 

Tutor de Matematica 

Calendario 

Demolidor 

Marciano 

Invasores do Espaqo 

Tubarao 

Ogro Mortal 

Mis seis 

Fantasmas 

Territorio 

Monstro das Trevas - Tridimensional 
Ovnis Tridimensional 
Guerra nas Estrelas 
0 Gato e o Rato 
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